Const
 a:Array[1..10] of Byte=(1,1,1,1,1,1,1,1,1,1);
 b:Array[1..4] of Byte=(1,2,3,4);

Var
 c:Array[0..13,1..10] of Byte;
 i,j:Integer;

Begin
 for i:=0 to 13 do
  for j:=1 to 10 do c[i,j]:=a[j];
 for i:=0 to 13 do
  for j:=i-3 to i do
   if (j>0) and (j<11) then c[i,j]:=b[4-i+j];
 for i:=0 to 13 do
  begin
   write(i:3,'     ');
   for j:=1 to 10 do write(c[i,j]:3);
   writeln;
  end;
 readln
End.