Написать программу «Вычислить сумму ряда 1+1,5+2+2,5+3+3,5+… +30"

Program RowSum; Const min=1; a=0,5; max=30; Var b, c: Real; i: Integer; Beginb: =a; c: =0; For i: =min To max*2 — 1 DoBeginb: =b+a; c: =c+b; End; WriteLn ('Сумма ряда равна ', c: 5:2); ReadLn; End.