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

var s,x,c,a,b:real;                                  a,b  параметры цикла. c- шаг циклаbegins:=0;read (a,b,c);x:=a;while x<=b do beginif x mod 2=1 then s:=s+x;x:=x+c;end;write (s);end.