Определить, какая фигура имеет большую площадь.

program plozshad;
 uses crt;
 var r, a, b1,b2, c1,c2,c3:integer;
     s1,s2,s3,s4,pi,p,max:real;
begin
pi:=3.14;
writeln('Введите радиус круга');
readln(r);
s1:=pi*sqr(r);
Writeln('Введите сторону квадрата');
readln(a);
s2:=sqr(a);
Writeln('Введите две стороны прямоугольника');
readln(b1,b2);
s3:=b1*b2;
Writeln('Введите три стороны треугольника');
readln(c1,c2,c3);
 p:=(c1+c2+c3)/2;
 s4:=sqrt(p*(p-c1)*(p-c2)*(p-c3));
 if (s1> s2) and (s1>s3) and (s1>s4) then max:=s1;
 if (s2> s1) and (s2>s3) and (s2>s4) then max:=s2;
 if (s3> s1) and (s3>s2) and (s3>s4) then max:=s3;
 if (s4> s1) and (s4>s2) and (s4>s3) then max:=s4;
//------------------------------------------------
if max=s1 then
 writeln('Максимальная площадь у круга = ',max);
if max=s2 then
 writeln('Максимальная площадь у квадрата = ',max);
if max=s3 then
 writeln('Максимальная площадь у прямоугольника = ',max);
if max=s4 then
 writeln('Максимальная площадь у треугольника = ',max);
end.