Составе программу, которая выводит ** экран нечётные числа от 1 до 50 в порядке убывания.

Question

Составе программу, которая выводит на экран нечётные числа от 1 до 50 в порядке убывания.

Answer 1

Var i:integer;
begin;
for i:=50 downto 1 do
if i mod 2<>0 then writeln(i);
end.