program Project2; {$APPTYPE CONSOLE} var a,b,c,i,k :longint; z,j,g:array [1..2,1..20] of longint; begin assign (input,'repair.in'); reset(input); readln(input, a,b); for i:=1 to a do readln(input,j [1,i]); j[1,i]:=z[1,i]; for c:= 1 to a do readln(input, j[2,i]); j[2,i]:=z[2,i]; close(input); k:=0; for c:= 1 to a do assign(output ,'repair.out'); rewrite(output); close(output); end.