Я думаю что тетради 5 класса лежат в 3 пачке
В результате выполнения этой программы будет напечатан 0
Если трассировать программу по шагам то мы увидим что s меняется в цикле вот так
s1=-4
s2=12
s3=-24
s4=24
Начиная с 5 шага получаем (5-5)*s т.е 0 и далее чтобы мы на 0 не умножали так и будет 0
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.
640 умножить на 240 = 163840 пикселей