Program MadeBySaske;
        var j1,j2,j3,j4,j5,j6,j7,j8, i, j :integer;
        board: array[1..8,1..8] of integer;

procedure Block(var board1: array [1..8,1..8] of integer; i3, j3:integer);
         var i2, j2: integer;
         begin
         board1[i3,j3] := 10;
         for i2 := 1 to 8 do
             for j2 := 1 to 8 do begin
                 if (i2 = i3)   and (j2 <> j3) and (board1[i2,j2] <> 10) then
                    board1[i2,j2] := 1;

                 if (j2 = j3)   and (i2 <> i3) and (board1[i2,j2] <> 10)  then
                    board1[i2,j2] := 1;

                 if (abs(i2 - i3) = abs(j2 - j3)) and (i2 <> i3) and (board1[i2,j2] <> 10)  then
                    board1[i2, j2] := 1;
          end;

end;

procedure Clean(var a: array[1..8,1..8] of integer);
          var i, j:integer;
          begin
          for i:= 1 to 8 do
              for j := 1 to 8 do
              a[i,j] := 0;
end;

begin
cls;
for j1 := 1 to 8 do
    for j2 := 1 to 8 do
        for j3 := 1 to 8 do
            for j4 := 1 to 8 do
                for j5 := 1 to 8 do
                    for j6 := 1 to 8 do
                        for j7 := 1 to 8 do
                            for j8 := 1 to 8 do begin

                                Clean(board);
                                Block(board,1,j1);

                                if board[2,j2] <> 1 then
                                   Block(board,2,j2)
                                else continue;

                                if board[3,j3] <> 1 then
                                   Block(board,3,j3)
                                else continue;

                                if board[4,j4] <> 1 then
                                   Block(board,4,j4)
                                else continue;

                                if board[5,j5] <> 1 then
                                   Block(board,5,j5)
                                else continue;

                                if board[6,j6] <> 1 then
                                   Block(board,6,j6)
                                else continue;

                                if board[7,j7] <> 1 then
                                   Block(board,7,j7)
                                else continue;

                                if board[8,j8] <> 1 then
                                   Block(board,8,j8)
                                else continue;
                                   count := 0;

                                 for i := 1 to 8 do begin
                                     writeln;
                                     for j := 1 to 8 do begin
                                         if board[i,j] = 10 then
                                            count := count + 1;
                                         write(board[i,j]:3);
                                     end;
                                 end;
                                 writeln;
                            end;
end.