Вычислить сумму ряда S = 1+1.5+2+2.5+3+3.5+…+ 30.

program c2;

var sum:real;

n:real;

BEGIN sum:=0;

n:=1;

while n < =30 do begin sum:=sum+n;

n:=n+0.5;

end;

 writeln('Сумма равна: ',sum);

END.