Программа на Pascal для определения равновеликости двух треугольников по заданным сторонам:

program triangleEquality;
var
a1, b1, c1, a2, b2, c2, p1, p2, s1, s2, sq1, sq2: real;
function square(a, b, c: real): real;
var
p, s: real;
begin
p := (a + b + c) / 2;
s := sqrt(p * (p - a) * (p - b) * (p - c));
square := s;
end;
begin
write('Введите стороны первого треугольника: ');
readln(a1, b1, c1);
write('Введите стороны второго треугольника: ');
readln(a2, b2, c2);
p1 := a1 + b1 + c1;
p2 := a2 + b2 + c2;
s1 := square(a1, b1, c1);
s2 := square(a2, b2, c2);
writeln('Площадь первого треугольника: ', s1:0:2);
writeln('Площадь второго треугольника: ', s2:0:2);
if s1 = s2 then
writeln('Треугольники равновеликие')
else
writeln('Треугольники не равновеликие');
end.

Программа сначала запрашивает стороны двух треугольников, затем вычисляет их площади и сравнивает их.