stack

type
   Uk =^ stack;
   stack = record
       x:longint;
       next:Uk;
end;

var Top:Uk;

procedure push(x:longint;var Top:Uk);
var Temp:Uk;
begin
  new(Temp);
  Temp^.x:=x;
  Temp^.next:=Top;
  Top:=Temp;
end;

procedure pop(var Top);
begin
  Top:=Top^.next;
end;

procedure WriteStack(var Top:Uk);
begin
  while Top <> nil do
    begin
      writeln(Top^.x);
      pop(Top);
    end;
end;

Begin
end.