Imports System.Console
Module Module1
    Dim meret As Integer
    Sub Main()
        WindowHeight = LargestWindowHeight
        WindowWidth = LargestWindowWidth
        BackgroundColor = ConsoleColor.Gray
        ForegroundColor = ConsoleColor.Black
        Clear()
        Write("Egy négyzet mérete: ")
        meret = ReadLine()

        Clear()
        For i = 1 To 8
            For j = 1 To 8
                If i Mod 2 = 0 Then
                    If j Mod 2 = 0 Then
                        Console.BackgroundColor = ConsoleColor.Black
                        For k = 1 To meret
                            For l = 1 To meret
                                CursorTop = i * meret + k - (meret + 1)
                                CursorLeft = j * meret + l - (meret + 1)
                                Write(" ")
                            Next
                        Next
                    Else
                        Console.BackgroundColor = ConsoleColor.White
                        For k = 1 To meret
                            For l = 1 To meret
                                CursorTop = i * meret + k - (meret + 1)
                                CursorLeft = j * meret + l - (meret + 1)
                                Write(" ")
                            Next
                        Next
                    End If
                Else
                    If i Mod 2 <> 0 Then
                        If j Mod 2 <> 0 Then
                            Console.BackgroundColor = ConsoleColor.Black
                            For k = 1 To meret
                                For l = 1 To meret
                                    CursorTop = i * meret + k - (meret + 1)
                                    CursorLeft = j * meret + l - (meret + 1)
                                    Write(" ")
                                Next
                            Next
                        Else
                            Console.BackgroundColor = ConsoleColor.White
                            For k = 1 To meret
                                For l = 1 To meret
                                    CursorTop = i * meret + k - (meret + 1)
                                    CursorLeft = j * meret + l - (meret + 1)
                                    Write(" ")
                                Next
                            Next
                        End If
                    End If
                End If
            Next
        Next
        BackgroundColor = ConsoleColor.Gray
        ReadLine()
    End Sub

End Module