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.