program p1;
type adresacelula=^celula;
     celula=record
         info:integer;
         urm:adresacelula;
     end;

var p,u:adresacelula;
    c:char;


procedure introducere;
var r:adresacelula;
i,n:integer;
begin
     new(r);
     write('Nr.de elemente:');
     readln(n);

     for i:=1 to n do begin
     write('Element',i,':')  ;
     readln(r^.info);
         r^.urm:=nil;
         if p=nil then begin p:=r;u:=r; end
            else
                begin
                     u^.urm:=r;
                     u:=r;
                end;
            end;
     end;


procedure afisare;
 var   r:adresacelula;
begin


         if p=nil then writeln('coada nu are elemente')
        else
            begin
                 r:=p;
                 writeln('Elementele cozii:');
                 while r<>nil do
                       begin

                          writeln(r^.info);
                          r:=r^.urm;
                      end;
                   end;
        readln;
end;






begin

      p:=nil; u:=nil;
        repeat
              writeln('I-introducerea datelor');
              writeln('a-afisarea datelor');

        readln(c);

        case c of
        'i':introducere;
        'a':afisare;
        'o':
              else writeln('necunoscuta');
        end;
      until c='o';
end.
end.