Задано натуральное число N. Напишите программу, которая выведет ** экран все числа от 1...

Question

Задано натуральное число N. Напишите программу, которая выведет на экран все числа от 1 до N в обратном порядке.

Входные данные
Задано натуральное число N, не превосходящее 1000

Выходные данные
Должны быть выведены в строку N натуральных чисел, разделенные пробелами.
В МОЕЙ ПРОГРАММЕ ПОЧЕМУ ТО ВЫВОДИТСЯ: 2 1 2 КАК ИЗБАВИТЬСЯ ОТ ВТОРОЙ ДВОЙКИ ПОСЛЕ ЕДИНИЦЫ?

Answer 1

Program z2;  Var n,i:integer; Begin  Write('N = '); readln(n);  while n>0 do  begin    write(n,'  ');    n:=n-1;  end;End.

Comments

где пишет?

---

Program z2;
Var n,i:integer;
Begin
Write('N = '); readln(n);
for i:=1 to n do
write(i,' ');

writeln;
while n>0 do
begin
write(n,' ');
n:=n-1;
end;
End.

---

Первоначальную строку не вывел