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

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.