constStosMax=10;//Stos 10 elementowyvarstos:array[1..StosMax]ofinteger;szczyt:integer=0;procedurepush(element:integer);beginifszczyt<StosMaxthenbegin//wrzuć na stosInc(szczyt);stos[szczyt]:=element;endelsebeginwriteln('Stos jest pelny');//Stos jest pełnyend;end;functionpop:integer;beginifszczyt<>0thenbegin//zdejmij ze stosupop:=stos[szczyt];Dec(szczyt);endelsebeginwriteln('Nie ma juz nic na stosie');//Stos jest pustypop:=-1;//-1 lub inna wartość kontrolna (wartownik) który poinformuje o //pustym stosie (najlepiej wybrać wartość którą będzie unikalna dla końca //stosu, tzn żaden inny element na stosie nie będzie mógł jej osiągnąć) end;end;