Даю 80 баллов!Даны три фигуры - треугольник со гранями c,d,e, прямоугольник

program area;

var

 c,d,e,a,b,r:integer;

 s1,s2,s3,max,p: real;

begin

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

 read(c, d, e);

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

 read(a, b);

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

 read(r);

 p:=(c+d+e)/2;

 s1:=sqrt(p*(p-a)*(p-b)*(p-c));

 writeln('Площадь треугольника: ',s1:0:2);

 s2:=a*b;

 writeln('Площадь прямоугольника: ',s2);

 s3:=pi*r*r;

 writeln('Площадь круга: ',s3:0:2);

 if s1gt;s2 then

   max:=s1

 else  

   max:=s2;

 if maxgt;s3 then  

   writeln('Наибольшпя площадь: ',max)

 else  

   writeln('Наивеличайшая площадь: ',s3:0:2);

end.