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

Question

Даю 80 баллов! Даны три фигуры - треугольник со сторонами c,d,e, прямоугольник со сторонами a,b и круг с радиусом r, вычислить площади всех фигур и вывести площадь наибольшей фигуры. СРОЧНО пожалуйста хелп!!!!! PASCAL

Answer 1

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 s1>s2 then

   max:=s1

 else  

   max:=s2;

 if max>s3 then  

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

 else  

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

end.