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

Площади в программе считаются по формуле Герона.

program area1;

var a, b, c, p, s1, s2: real / /a, b, c - стороны треугольника, p - полупериметр,

/ / s1, s2 - площади треугольников;

begin

for i:integer: = 1 to 2 do

begin

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

read (a, b, c);

p : = (a + b + c) / 2;

s1 : = sqrt (p * (p - a) * (p - b) * (p - c));

end

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

read (a, b, c);

p : = (a + b + c) / 2;

s2 : = sqrt (p * (p - a) * (p - b) * (p - c));

if s1 = s2 then writeln ('Площади треугольников равны') else

writeln ('Площади треугольников различны')

end.