Даны три стороны одного и три стороны другого треугольника. Определить, будут ли эти треугольники равновеликими, т.е. имеют ли они равные площади.(S=(дальше все под корнем)p(p-a)(p-b)(p-c), где p- полупериметр треугольника.) — Pascal(Паскаль)

program three;
var
a1,b1,c1,a2,b2,c2:integer;
s1,s2,p1,p2:real;
begin
writeln('Введите стороны первого треугольника.');
readln(a1,b1,c1);
writeln('А теперь второго.');
readln(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=s2) then Writeln('Треугольники имеют равные площади.') else Writeln('Площадь двух треугольников разная.');
end.