Сравните,что больше сумма ряда 8.5,8..9 или произведение чисел от 1 до 3 с шагом 0.25 заранее ♥

Var a,s,p:real;
begin
a:=8.5;
s:=0;
while a<=40.9+0.005 do
 begin
 s:=s+a;
 a:=a+0.1;
 end;
writeln('s = ',s:6:2);
p:=1;
a:=1;
while a<=3+0.005 do
 begin
 p:=p*a;
 a:=a+0.25;
 end;
writeln('p = ',p:6:2);
if s>p
 then writeln('Сумма больше')
 else writeln('Произведение больше');
end.

Результат:
s = 8027.50
p = 304.54
Сумма больше