Program listaprg;
uses listau;

var
 lista:Tlista;
 n:integer;

Procedure beolvasas(var lista:Tlista);
 var i:integer;
     elem:telem;
 Begin
 Write('Elemszam - a lista hossza: ');
 Readln(n);
 lista.ures;
 For i:=1 to n do
  Begin
   Write('Az ',i,'. elem: ');
   Readln(elem);
   lista.beszurmoge(elem); {nem kell kovetkezore}
  End;
 End;

Procedure kiiras(lista:Tlista);
 Begin
  lista.elejere;
  While (not lista.vege_e) do
    Begin
     Writeln('lista.elemertek ',lista.elemertek);
     lista.kovetkezore;
    End;
  Writeln('lista.elemertek ',lista.elemertek);
 End;

BEGIN
Beolvasas(lista);
kiiras(lista);
END.