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

program zz1;

var n, i:integer; / / задаем переменные целого типа

begin

write (' введите натуральное число n '); / / вводим с клавиатуры заданное число

read (n);

for i:=n downto 1 do / / организуем цикл, в котором переберем все числа от N до единицы

write (' ', i); / / выводим ответ в строчку через пробел

end.