Program listas1 ;
type tipono=record
  info: integer;  // dado armazenado no nó
  prox: ^tipono;  // ponteiro para proximo nó
end;

var p1: ^tipono;  // guarda endereço do 1º nó
px: ^tipono;  //auxiliar para um nó da lista
Begin
  p1:=nil;

  //repeticao que adiciona novos nós á lista
  repeat
    new (px);
    write ('Insira um novo inteiro para a lista ');
    write (' - 0 (zero) para terminar: ');
    readln (px^.info);
    px^.prox :=p1;
    p1:= px;
  until (px^.info=0);
  px:=p1;

// percorre, escrevendo os elementos da lista
while (px<> nil) do
begin
  writeln (px^.info);
  px:=px^.prox;
 end;
 readln;
End.