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.