program SumOfOddNumbers;
varsum, i: integer;
beginsum := 0;
for i := 11 to 99 step 2 dobeginsum := sum + i;end;
writeln('Сумма всех двухзначных нечетных чисел равна: ', sum);end.
program SumOfOddNumbers;
var
sum, i: integer;
begin
sum := 0;
for i := 11 to 99 step 2 do
begin
sum := sum + i;
end;
writeln('Сумма всех двухзначных нечетных чисел равна: ', sum);
end.