),буду )мне нужно в паскале написать,а я не пойму как) определить,что больше сумма ряда: 1.1,1..1 или произведение 5*7**11)и схему если не сложно

Var a,b,sum:real;
begin
  a:=1.1;
  while a<=93.2 do begin
    sum:=sum+a;
    a:=a+0.2;
  end;
  b:=5*7*9*11;
  if sum>b then writeln('Сумма больше') else writeln('Произведение больше')
end.