Question

Составьте программу вывода на экран всех натуральных чисел от 1 до N в обратном порядке

Answer 1

Program qq;
var n,i:byte;
begin
 readln (n);
for i:= n downto 1 do
writeln ( ' i  ');
end.