Вычислите сумму нечетных чисел, не превышающих числа…

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); readlnend.