На выбор решить одну из задач ниже. Вариант (а или б) определяется номером
компьютера, за которым вы сидите (248.PCnn):
  (а) если номер вашего компьютера (nn) четный,
  (б) если нечетный.


1. На стандартном потоке ввода задан ввод:
  (а) текстовые данные, единица ввода – строка;
  (б) последовательность целых чисел.
  
Перевернуть ввод, используя стек, и вывести на стандартный поток вывода.


2. Задача 17.6 (а или б) из задачника.


При решении каждой из задач сначала определить тип данных стек и реализовать
процедуры для работы со стеком, выбрав подходящий тип значения ET (например,
string, char или integer):

procedure st_push(var st: stack; ET: data);
function st_pop(var st: stack): ET;
function st_isempty(var st: stack): boolean;
procedure st_clear(var st: stack);

В качестве реализации для стека использовать список без заглавного звена.