найти сумму нечетных чисел от 1 до n. составьте программу в Паскаль

Вопрос школьника по предмету Информатика

найти сумму нечетных чисел от 1 до n.
составьте программу в Паскаль

Ответ учителя по предмету Информатика

Program n1;

var n,i: integer;

sum: real;

begin

sum:=0;

readln(n);

for i:=1 to n do if i mod 2<>0 then

sum:=sum+i;

writeln(sum);

end.