Module Main
    '**********************
    '*****Задание 24*******
    '**********************
    Sub Main()
        Dim m As ConsoleKeyInfo 'Переменная для остановки экрана
        Dim fl, Ex As Boolean   'Выход из циклов
        Dim n As Integer        'Размер квадратной матрицы
        Dim i As Integer
        Dim j As Integer
        Dim nom As Short = 0      '№ запуска
        FileOpen(1, "..\..\N24_In.txt", OpenMode.Input)
        FileOpen(2, "..\..\N24_Out.txt", OpenMode.Append)
        Ex = True
        Do While Ex
            Do
                fl = True
                Do While fl
                    Clear()
                    nom += 1
                    WriteLine("{0}-й запуск", nom)
                    WriteLine("Происходит чтение из файла VC15_In.txt")
                    WriteLine("")
                    Input(1, n)
                    WriteLine("Размер матрицы: {0, 1} ", n)
                    If n < 1 Then               'Проверка размера матрицы
                        WriteLine("Размеры матрицы должны быть больше нуля. Исправьте данные.")
                        WriteLine("Для выхода нажмите любую клавишу")
                        WriteLine()
                        ReadLine()
                        Return
                    Else
                        fl = False
                    End If

                Loop
                Dim a(n, n) As Single           'Исходная матрица
                WriteLine("Значения матрицы")   'Заполнение исходной матрицы
                For i = 0 To n - 1
                    For j = 0 To n - 1
                        Input(1, a(i, j))
                        Write("{0, 10}", a(i, j))
                    Next
                    WriteLine("")
                Next
                Dim b(n, n) As Single           'Результирующая матрица
                NMat1.NMat(n, a, b)             'Расчет результирующей матрицы
                WriteLine()
                WriteLine("Результат")          'Вывод результирующей матрицы
                PrintLine(2, "Тест №", nom)
                PrintLine(2, "Результат")
                For i = 0 To n - 1
                    For j = 0 To n - 1
                        Write("{0, 10}", b(i, j))
                        Print(2, SPC(5), b(i, j))
                    Next
                    WriteLine("")
                    PrintLine(2, "")
                Next
                WriteLine("")
                WriteLine("Производится запись результата в файл VC15_Out.txt")
                WriteLine("")
                WriteLine("Для продолжения нажмите любую клавишу. Esc - выход")
                'Ex = ReadKey().Key <> ConsoleKey.Escape
                m = ReadKey(True)
            Loop While Not EOF(1) And m.Key <> ConsoleKey.Escape
            If m.Key <> ConsoleKey.Escape Then
                WriteLine()
                WriteLine("Обнаружен конец входного файла. Для выхода нажмите любую клавишу")
                ReadLine()
                Return
            End If
            FileClose()
        Loop
    End Sub

End Module