Question

Ввести натуральное число N и вывести в строчку все числа от N до 1.

Answer 1

var
  n : integer;
begin
  read (n);
  while n > 0 do
  begin
    write (n, ' ');
    n := n - 1;
  end;
end.