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.