Question

Составьте программу выводящую на экран числа от 10 до 1 в одну строку в порядке убывания
Pascal abc

Answer 1

begin

   for var i := 10 downto 1 do write(i, ' ');

end.