1. Написати програму, яка виводить на екран числа від 1-10

2. Написати програму, яка
виводить на екран числа від 10 -1
!!​

PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018
Внимание! Если программа не работает, обновите версию!

begin
  var St:=new Stack<integer>;
  foreach var k in ReadSeqInteger('Вводите данные:',ReadInteger('n=')) do
    St.Push(k);
  St.Println; // исходное содержимое стека
  var St1:=new Stack<integer>;
  var min:=MaxInt;
  var k:integer;
  while St.Count>0 do begin
    k:=St.Pop;
    if Abs(k)<min then min:=Abs(k);
    St1.Push(k);
    end;
  while St1.Count>0 do begin
    k:=St1.pop;
    if Abs(k)<>min then St.Push(k)
    end;
  St.Println
end.

Пример
n= 5
Вводите данные: 2 3 -1 7 1
1 7 -1 3 2
7 3 2

Что же такое "на уровень вверх и вниз"?

Уровень вверх - ближе к корневой папке, то есть к "локальному диску".

Уровень вниз - дальше от корневой папки.

Вопрос 1:

Было:
D:\Фото\2012\Общая
Создали подкаталог "9 класс" и переместили в каталог "общая".

ответ:

Полный путь до данного каталога:
3) D:\Фото\2012\9 класс\Общая 

Вопрос 2:
Было:
Работали в каталоге "Работа1" поднялись на один уровень вверх (ближе к корневой папке) , затем спустились на один уровень вниз (дальше от корневой папки) , потом ещё раз спустились на один уровень вниз (ещё дальше - 2) , потом ещё раз спустились на один уровень вниз (ещё дальше - 3) . В результате оказались в каталоге
C:\2012\9 класс\Таблицы

ответ:
Работали в:
4) C:\Работа1
Потому что если отталкиваться от
C:\2012\9 класс\Таблицы
Уидя на 3 уровеня вверх (на обарот действию совершаемому в задаче)
Мы попадём в "C:", далее мы должны подняться на один уровень вниз (каталог нам не известен).
Исходя из вариантов ответа нам подходит: 4) C:\Работа1, ибо только он находится на данном уровне.

Вопрос 3:
Работали:
D:\Фото\2012\Общая.
Далее:
Пользователь, находившийся в этом каталоге, поднялся на два уровня вверх (ближе к корневой папке) , создал подкаталог 9 класс и переместил в созданный подкаталог файл Общая. 
Найти:
Какой путь имеет этот каталог сейчас

ответ:
1) D:\Фото\9 класс\Общая
Ибо, в каталог "2012" пользователь больше не заходил.

Вопрос 4:
Было:
В некотором каталоге хранился файл Том 1.
Полное имя:
D:\Литература\20 век\Том 1.
Что стало:
Пользователь, находившийся в этом каталоге, поднялся на один уровень вверх (ближе к корневой папке) , создал подкаталог Шолохов и переместил в созданный подкаталог файл Том 1. 

Найти:
Путь файла "Том 1"

ответ:
1) D:\Литература\Шолохов\Том 1
Ибо, пользователь поднялся на один уровень вверх и больше не заходил в каталог "20 век"

Вопрос 5:
В некотором каталоге хранился файл Том 1

Полное имя:
D:\Литература\20 век\Том 1.

Что было:
Пользователь, находившийся в этом каталоге, поднялся на два уровня вверх (ближе к корневой папке),! в каталоге "Литература"! создал подкаталог Шолохов и переместил в созданный подкаталог файл Том 1. 

Найти:
Путь файла "Том 1".

ответ:
1) D:\Литература\Шолохов\Том 1