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

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

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.