Просуммировать все нечётные числа в диапазоне,который введет пользователь с клавиатуры. Используйте цикл с предусловием(Паскаль ). Срочно

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

Просуммировать все нечётные числа в диапазоне,который введет пользователь с клавиатуры. Используйте цикл с предусловием(Паскаль ). Срочно

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

var s,x,c,a,b:real;                                  a,b  параметры цикла. c- шаг цикла

begin

s:=0;

read (a,b,c);

x:=a;

while x<=b do begin

if x mod 2=1 then s:=s+x;

x:=x+c;

end;

write (s);

end.