uses crt;
type adr=^el;
     el=record
          nr:integer;
          l:adr;
        end;

var p,u,c:adr;
    x:pointer;


procedure citire;
var i:integer;
begin
  assign(input,'sir.in');
  reset(input);
  p:=nil;
  u:=nil;
  c:=nil;
  while not eoln do
   begin
      new(c);
      read(i);
      if p=nil then
                 begin
                   c^.nr:=i;
                   p:=c;
                   u:=c;
                 end
               else
                 begin
                   c^.nr:=i;
                   u^.l:=c;
                   u:=c;
                 end;
   end;
  close(input);
end;

procedure inserare(x:integer);
begin
  c:=p;
  while c<>nil do
    c:=c^.l;
  new(u);
  u^.nr:=x;
  c^.l:=u;
end;


procedure parc;
begin
  c:=p;
  while c<>nil do
    begin
      write( c^.nr,' ');
      c:=c^.l;
    end;
end;

begin
  mark(x);
  clrscr;
  citire;
  parc;
  inserare(10);
  writeln;
  parc;
  release(x);
end.