const
 n=5;
var
 a:array[1..n,1..n] of integer;
 b:array[1..n,1..n*3] of integer;
 i,j,k:integer;
begin
 for i:=1 to n do
  for j:=1 to n do
   if i=j then a[i,j]:=1
   else a[i,j]:=0;
 for i:=1 to n do
  begin
   for j:=1 to n do
    write(a[i,j]:3);
   writeln;
  end;
 writeln;
 for i:=1 to n do
  for j:=1 to n do
   for k:=0 to 2 do
    b[i,j+k*n]:=a[i,j];
 for i:=1 to n do
  begin
   for j:=1 to n*3 do
    write(b[i,j]:3);
   writeln;
  end;
 readln;
end.