var count := 0

var grid : array 1 .. 3, 1 .. 3 of int
for i : 1 .. 3
    for j : 1 .. 3
        grid (i, j) := 0
    end for
end for

procedure drawboard
    for i : 1 .. 3
        for j : 1 .. 3
            put grid (j, i), " " ..
        end for
        put ""
    end for
    put count
end drawboard

function check : boolean
    for j : 1 .. 2
        for i : 1 .. 3
            if grid (1, i) = j and grid (2, i) = j and grid (3, i) = j then
                result true
            end if
            if grid (i, 1) = j and grid (i, 2) = j and grid (i, 3) = j then
                result true
            end if
        end for
        if grid (1, 1) = j and grid (2, 2) = j and grid (3, 3) = j then
            result true
        elsif grid (3, 1) = j and grid (2, 2) = j and grid (1, 3) = j then
            result true
        end if
    end for
    result false
end check

function checkall : boolean
    for i : 1 .. 3
        for j : 1 .. 3
            if grid (j, i) = 0 then
                result false
            end if
        end for
    end for
    result true
end checkall

procedure recurse (k : int)
    put k
    delay (100)
    if check then
        count += 1
        return
    end if
    for i : 1 .. 3
        for j : 1 .. 3
            if grid (j, i) = 0 then
                if (k mod 2 = 1) then
                    grid (j, i) := 2

                    %drawboard
                    %delay (750)
                    %cls

                    recurse (k + 1)
                    grid (j, i) := 0

                    %drawboard
                    %delay (750)
                    %cls

                else
                    grid (j, i) := 1

                    %drawboard
                    %delay (750)
                    %cls

                    recurse (k + 1)
                    grid (j, i) := 0

                    %drawboard
                    % delay (750)
                    % cls

                end if
            end if
        end for
    end for
    if checkall then
        count += 1
    end if
end recurse

for i : 1 .. 3
    for j : 1 .. 3
        grid (j, i) := 1

        %drawboard
        %delay (750)
        %cls

        recurse (1)
        grid (j, i) := 0

        %drawboard
        %delay (750)
        %cls

    end for
end for
put count

#include <iostream>
using namespace std;

int count, grid[3][3];

/*void drawboard()
{
    for (int i=0; i<3; i++)
    {
        for (int k=0; j<3; j++)
            cout << grid [j][i]<< " ";
        clrscr();       
    }
    cout << count << endl;
}
void clrscr()
{
  HANDLE hStdOut = GetStdHandle(STD_OUTPUT_HANDLE);
  COORD coord = {0, 0};
  DWORD count;
 
  CONSOLE_SCREEN_BUFFER_INFO csbi;
  GetConsoleScreenBufferInfo(hStdOut, &csbi);
 
  FillConsoleOutputCharacter(hStdOut, ' ', csbi.dwSize.X * csbi.dwSize.Y, coord, &count);
 
  SetConsoleCursorPosition(hStdOut, coord);
}*/
bool check()
{
    for (int i=0; i<3; i++)
    {
        for (int j=0; j<3; j++)
            if (grid[0][i] == j && grid[1][i] == j && grid[2][i] == j) return true;
            else if (grid[i][0] == j && grid[i][1] == j && grid[i][2] == j) return true;
        if (grid[0][0]==j && grid[1][1]==j && grid[2][2]==j) return true;
        if (grid[2][0]==j && grid[1][1]==j && grid[0][2]==j) return true;
    }
    return false;
}
bool checkall()
{
    for (int i=0; i<3; i++)
        for (int j=0; j<3; j++)
            if (grid[j][i] == 0) return false;
    return true;
}
void recurse(int k)
{
    if (check()){count++; return;}
    for (int i=0; i<3; i++)
        for (int j=0; j<3; j++)
            if (k%2 == 1)
            {
                grid[j][i]=2;
               
//            drawboard();
//            sleep(600);
//            clrscr();
               
                recurse(k+1);
                grid[j][i]=0;
               
//            drawboard();
//            sleep(600);
//            clrscr();
            }
            else
            {
                grid[j][i]=1;
               
//            drawboard();
//            sleep(600);
//            clrscr();
               
                recurse(k+1);
                grid[j][i]=0;
               
//            drawboard();
//            sleep(600);
//            clrscr();
            }
    if (checkall()) count++;
}

int main()
{
    for (int i=0; i<3; i++)
        for (int j=0; j<3; j++)
        {
            grid[j][i]=1;
            
//          drawboard();
//            sleep(600);
//            clrscr();
            
            recurse(1);
            grid[j][i]=0;
            
//          drawboard();
//            sleep(600);
//            clrscr();
        }
    cout << count << endl;
}