program matrice; var a:array[1..2001,1..2001] of integer; n,m,x,c,l,p,q,i,j,v:integer; f,g:text; begin readln(n,m,x); c:=0; l:=0; for i:=1 to n do begin for j:=1 to m do begin read(v); for p:=1 to x do for q:=1 to x do a[p+l,q+c]:=v; c:=c+x; end; l:=l+x; c:=0; readln; end; for i:=1 to n*x do begin for j:=1 to m*x do write(a[i,j],' '); writeln; end; end.