Дано 3 числа. вам необходимо найти сумму только нечетных чисел.

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.

буфер обмена,перетаскивание,сохранение в файл