Module Module1

    Sub Main()
        FileOpen(1, "DATA4.txt", OpenMode.Input)
        FileOpen(2, "OUT4.txt", OpenMode.Output)
        Dim board(4, 4) As String
        board(0, 0) = "20"
        board(0, 1) = "19"
        board(0, 2) = "18"
        board(0, 3) = "17"
        board(0, 4) = "16"
        board(1, 0) = "21"
        board(1, 1) = "6"
        board(1, 2) = "5"
        board(1, 3) = "4"
        board(1, 4) = "15"
        board(2, 0) = "22"
        board(2, 1) = "7"
        board(2, 2) = "0"
        board(2, 3) = "3"
        board(2, 4) = "14"
        board(3, 0) = "23"
        board(3, 1) = "8"
        board(3, 2) = "1"
        board(3, 3) = "2"
        board(3, 4) = "13"
        board(4, 0) = "24"
        board(4, 1) = "9"
        board(4, 2) = "10"
        board(4, 3) = "11"
        board(4, 4) = "12"
        Dim bp(4, 4) As String

        For i As Integer = 0 To 4
            Array.Copy(board, bp, 25)
            Dim input As Integer = CInt(LineInput(1))
            For t1 As Integer = 0 To 4
                For t2 As Integer = 0 To 4
                    If bp(t1, t2) > input Then
                        bp(t1, t2) = "."
                    End If
                Next
            Next
            If input = 0 Then
                PrintLine(2, "0")
            ElseIf input = 1 Then
                PrintLine(2, "0")
                PrintLine(2, "1")
            ElseIf input < 4 Then
                PrintLine(2, bp(2, 2) + bp(2, 3))
                PrintLine(2, bp(3, 2) + bp(3, 3))
            ElseIf input < 6 Then
                For t1 As Integer = 1 To 3
                    Dim tmp As String = "a"
                    For t2 As Integer = 2 To 3
                        tmp = tmp + bp(t1, t2)
                    Next
                    PrintLine(2, tmp.Substring(1))
                Next
            ElseIf input < 9 Then
                For t1 As Integer = 1 To 3
                    Dim tmp As String = "a"
                    For t2 As Integer = 1 To 3
                        tmp = tmp + bp(t1, t2)
                    Next
                    PrintLine(2, tmp.Substring(1))
                Next
            ElseIf input < 12 Then
                For t1 As Integer = 1 To 4
                    Dim tmp As String = "a"
                    For t2 As Integer = 1 To 3
                        tmp = tmp + bp(t1, t2)
                    Next
                    PrintLine(2, tmp.Substring(1))
                Next
            ElseIf input < 16 Then
                For t1 As Integer = 1 To 4
                    Dim tmp As String = "a"
                    For t2 As Integer = 1 To 4
                        tmp = tmp + bp(t1, t2)
                    Next
                    PrintLine(2, tmp.Substring(1))
                Next
            ElseIf input < 20 Then
                For t1 As Integer = 0 To 4
                    Dim tmp As String = "a"
                    For t2 As Integer = 1 To 4
                        tmp = tmp + bp(t1, t2)
                    Next
                    PrintLine(2, tmp.Substring(1))
                Next
            Else
                For t1 As Integer = 0 To 4
                    Dim tmp As String = "a"
                    For t2 As Integer = 0 To 4
                        tmp = tmp + bp(t1, t2)
                    Next
                    PrintLine(2, tmp.Substring(1))
                Next
            End If



        Next
        FileClose(1)
        FileClose(2)
    End Sub

End Module