var

       sum: Word;

       i: Byte;

begin

       sum := 0;

       i := 1;

       while i <= 99 do begin

               sum := sum + i;

               Inc (i)

       end;

       Write (sum)

end.        

Ответ:

program summa;

var

  sum: Word;

  i: Byte;

begin

  sum := 0;

  i := 1;

  while i <= 99 do begin

    sum := sum + i;

    i := i + 2;

  end;

  WriteLn('Сумма нечетных чисел от 1 до 99 равна ', sum);

end.  

Объяснение: