Вычислите сумму нечетных чисел, не превышающих числа x. Первое нечетное число=1.

program xxx;     var i, x, s : integer; begin   write('введите число Х=');   readln(x);   s:=0   i:=1   while i <=x do     begin       s:=s+i;       i:=i+2     end;   write('сумма нечетных чисел ='; s);    readln end.