Сравните,что больше сумма ряда 8.5,8.6,...,40.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 Сумма больше