procedure push(in/out:head;in:elem)
begin
     var stack:head,node
     var integer:elem
     node.info:=elem
     node.link:=NULL
     if(head=NULL)then
        head:=node
     else
        node.link:=head
        head;=node
     endif
end push