Даны три стороны одного и три стороны другого треугольника. Определить будут ли эти треугольники равновеликими, т. е. имеют ли они равные площади.

в системе паскаль

Var a1, b1, c1, a2, b2, c2, p1, p2, s1, s2: real;

begin

writeln ('Введите строны первого треугольника: ') ;

read (a1, b1, c1) ;

writeln ('Введите стороны второго треугольника: ') ;

read (a2, b2, c2) ;

p1 : = (a1 + b1 + c1) / 2;

p2 : = (a2 + b2 + c2) / 2;

s1 : = sqrt (p1 * (p1 - a1) * (p1 - b1) * (p1 - c1)) ;

s2 : = sqrt (p2 * (p2 - a2) * (p2 - b2) * (p2 - c2)) ;

if (s1 + 1e-3 > s2) and (s1 < s2 + 1e-3) then writeln ('Равновеликие')

else writeln ('Неравновеликие') ;

end.