program SumOfOddNumbers;
varsum, i: Integer;
beginsum := 0;
for i := 1 to 99 dobeginif i mod 2 <> 0 thensum := sum + i;end;
writeln('Сумма нечетных чисел от 1 до 99 равна: ', sum);
end.
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.