program SumOfOddNumbers;

var
sum, i: Integer;

begin
sum := 0;

for i := 1 to 99 do
begin
if i mod 2 <> 0 then
sum := sum + i;
end;

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

end.