Contoh program Stack dengan Pascal

Begin 

top:=0;

For i:=1 to maks do

Begin

Writeln(’masukkan nama ke’, ‘ ‘,i,’ ‘,’='); readln(stack[i]);

top:=top+1;

End;

writeln(’posisi tumpukan=’,top);

Writeln(’pengambilan data’);

writeln(’berapa data yang akan diambil?’);readln(n);

if n<4 then

begin

For i:=1 to maks do

Begin

Elemen:=stack[top];

top:=top - 1;

End;

end;

Writeln(’data elemen sekarang=’,elemen);

writeln(’posisi tumpukan=’,top); Readln;

End.