Подсчитать сумму всех нечётных чисел от 230 до 430

Ответы:

var i,s: integer,

begin

clrscr,

s:=0,

for i:=230 to 430 do

s:=s+i,

writeln(s),

end.