program stos_make; {$APPTYPE CONSOLE} uses SysUtils; TYPE stos=^pole; pole=RECORD dane:INTEGER; nast:stos; END; var sp:stos; a:INTEGER; PROCEDURE push(liczba:INTEGER;var adres:stos); var pom:stos; BEGIN NEW(pom); pom^.nast:=adres; pom^.dane:=liczba; adres:=pom; END; PROCEDURE pop(var liczba:INTEGER;var adres:stos); var pom:stos; BEGIN liczba:=adres^.dane; pom:=adres; adres:=adres^.nast; dispose(pom); END; BEGIN repeat writeln ('podaj liczbe 0 konczy'); readln (a); push (a,sp); until a=0; repeat pop (a,sp); writeln ('liczba',a); until sp=nil; readln; END.