Реализация стека процедур Push и Pop - Pascal ABC

Формулировка задачи:

Реализация стека процедур Push и Pop. help

Решение задачи: «Реализация стека процедур Push и Pop»

Листинг программы

var
 a : array[1..100] of real;
 size,i,n: integer;
 x:real;
 
procedure push(c : real);
 begin
  size := size + 1;
  a[size] := c; 
 end;
 
 procedure pop;
 begin
  writeln(a[size]);
  size := size - 1;
 end;
 
 begin
  write('Количество элементов стека = '); readln(n);
  size := 0; {Изначально стек пуст}
  writeln('Push:');
  for i := 1 to n do begin {добавляем 3 введенных с клавиатуры элемента. Например 4 16 9}
    readln(x);
    Push(x);
  end;
  writeln('Pop:');
  while size > 0 do begin  {Удаляем элементы пока стек не опустеет}
    Pop();
  end;
  writeln(size); {Стек пуст, поэтому выведется 0}
 end.

Объяснение кода листинга программы

Объявлены переменные: a (массив), size (размер стека), i (счетчик цикла), n (количество элементов стека), x (элемент стека).
Объявлены процедуры: push (добавление элемента в стек), pop (удаление элемента из стека).
В основной части программы:
- Задается вопрос о количестве элементов стека.
- Изначально размер стека устанавливается в 0.
- В цикле n раз запрашивается ввод элемента и добавляется в стек с помощью процедуры push.
- Выводится сообщение Pop:, после чего в цикле, пока стек не пуст, выводится и удаляется его элемент с помощью процедуры pop.
- В конце выводится текущий размер стека.