var _sum, i : integer;
begin
_sum := 0;
i := 1;
while i < 10 do
_sum := _sum + i;
i := i + 2;
end;
writeln('Сумма нечетных из диапазона (0-10): ', _sum);
end.
