PROGRAM LISTA

program lista;
type punta=^nodo;
nodo=record
inf:string;
q:punta
end;
var p0,p:punta;n,i:integer;ch:string;
begin {costruzione della lista}
p0:=nil;write('numero dei termini,"');readln(n)
for i :=1 to n do begin
new (p);
readln (ch);
p^.inf:=ch;
p^.q:=p0;
p0:=p;
end;
writeln; {stampa}
while p<>nil do begin
writeln(p^.inf);
p:=p^.q
end
end.