uses crt;
var n,i:integer;
p,m:array [1..100] of integer;
f:text;
begin
clrscr;
assign(f,'ee.dat');
reset(f);
while not(eoln(F)0 do
readln(n);
while not(eoln(f)) do
begin
readln(f,p[i]);
i:=i+1;
end;
while not(eoln(f)) do
begin
readln(f,m[i]);
i:=i+1;
end;
writeln(n);
write(p);
writeln;
write(m);

end.