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.