Pilha


Program Pilha  ;
type nada = record
     nome:string[10];
idade:integer;
ano:^nada;
end;
var p1:^nada;
    px:^nada;
    n:integer;
 Begin
      p1:=nil;
      for n:=1 to 10 do
      begin
         new(px);
         writeln('insira um nome para da lista');
         readln(px^.nome);
         writeln('insira a idade para o nome da pessoa que introduziu');
         readln(px^.idade);
   px^.ano:=p1;
   p1:=px;
      end;
while(px<>nil) do
   begin
      writeln(px^.nome);
 writeln(px^.idade);
 px:=px^.ano;
   end;  
 End.