Проверить, являются ли треугольники равновеликими - Free Pascal

uses crt;
var a1,b1,c1,a2,b2,c2,p1,p2,S1,S2:real;
begin
writeln ('Введите длины сторон первого треугольника');
readln(a1);
readln(b1);
readln(c1);
writeln('Введите длины сторон второго треугольника');
readln(a2);
readln(b2);
readln(c2);
if ((a1+b1<c1)or(a1+c1<b1)or(b1+c1<a1)) or ((a2+b2<c2)or(a2+c2<b2)or(b2+c2<a2))
then
writeln('Введены недопустимые длины сторон')
else
begin
p1:=(a1+b1+c1)/2;
p2:=(a2+b2+c2)/2;
S1:=sqrt((p1-a1)*(p1-b1)*(p1-c1));
S2:=sqrt((p2-a2)*(p2-b2)*(p2-c2));
if S1=S2 then
writeln('True')
else
writeln('False');
end;
end.