when i'm on my linux box some one asked me for help in pascal ..phew my 
last usage of this language is in 2001, it's been a long time i never use 
this language anymore

let's recall back:


{simple stack operation in pascal}

{made by mywisdom}

{not tested yet !!! maybe some syntax contains error make sure you recheck 
the syntax}

uses crt;

var x:integer;

var t: integer;

var jawaban:char;


procedure operasistack;

var

stack:array[1..10] of single;

i : integer;

t:integer;

for i:=1 to 10 do

begin

if stack[i-1]>stack[i] then begin

stack[i]:=t;

writeln('lebih kecil berarti dilakukan push');


end

end

end


begin:

ClrScr;



WHILE (jawaban<>'n') DO BEGIN

begin

writeln('Masukan nomor untuk dimasukkan ke stack : ');readln(t);

writeln('Ingin masukkan ke stack lagi ? (y / n)');readln(jawaban);

operasistack(t);

end

end




I hope this can help him