Подсчитать сумму нечетных чисел от 1 до 99

Конечно, это можно сделать по формуле арифметической прогрессии, но если просят цикл, то:

uses Crt;
var  i, Sum: integer;

begin
  ClrScr;
  Sum:=0;
  i:=1;
  while i<=99 do
    begin
     Sum:=Sum +i ;
      i:=i+2;

    end;
  WriteLn(' Sum = ', Sum);
  ReadLn;
end.