var a,b,c,d,s1,s2,p:real;

begin

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

 readln(a,b,c);

 writeln('Введите сторону квадрата');

 readln(d);

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

 s1:=sqrt(p/(p-a)*(p-b)*(p-c));//считаем площадь треугольника по полупериметру

 s2:= d*d;//площадь квадрата

 if s1>s2 then writeln('Площадь треугольника больше');

 if s2>s1 then writeln('Площадь квадрата больше');

end.