стек

[spider844360]

блин помогите пожалуйста написать программу Цель работы: Реализовать стек на языке Pascal с использованием одномерного массива.
Выполняемые операции: Занесение элемента в стек; выборка элемента из стека; определение пустоты стека; прочтение элемента без его выборки из стека.

[Stilet]

 var stek:array[1..100] of integer;
  sp:integer;

 {Занесение элемента в стек}
 procedure push(i:integer);begin inc(sp);stek[sp]:=i;end;

 {выборка элемента из стека}
 function pop:integer;begin pop:=stek[sp];dec(sp);end;

 {прочтение элемента без его выборки из стека}
 function pop2:integer;begin pop:=stek[sp];end;

begin
 sp:=-1;
 push(1);push(2);push(3);
 writeln(pop,' ',pop,' ',pop);
 readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.

А

определение пустоты стека

Это твое домашнее задание. Подсказка - нужно проверять переменную sp.