PascalЗадание : Необходимо суммировать все нечётные целые числа в диапазоне, 0-10. 1 3 5 7 9

var _sum, i : integer;

begin

_sum := 0;

i := 1;

while i < 10 do

begin

_sum := _sum + i;

i := i + 2;

end;

writeln('Сумма нечетных из диапазона (0-10): ', _sum);

end.