Question

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

Answer 1

program z1;

var i:integer;

begin

for i:=49 downto 1 do

 if i mod 2 = 1 then write(i:3);

end.