PasPan_1

DIM A(1 TO 6, 1 TO 6) AS LONG, B(1 TO 8, 1 TO 8) AS LONG
DIM C(1 TO 10, 1 TO 10) AS LONG, J AS INTEGER, I AS INTEGER
DIM MM(1 TO 12) AS LONG, MMI AS INTEGER, T AS LONG, T1 AS LONG, T2 AS LONG
FOR J = 1 TO 10
    FOR I = 1 TO 10
        T1 = (1 - J) * (1 - J): T2 = (I ^ 3) - 8
        IF T1 = 0 OR T2 = 0 THEN
            T = 10
        ELSE
            T = ((I * I) / T1) - (1 / T2)
        END IF
        IF I = 1 AND J = 1 THEN FOR MMI = 1 TO 9 STEP 4: MM(MMI) = T: NEXT MMI
        IF I <= 6 AND J <= 6 THEN
            A(I, J) = T
            IF I = J THEN
                IF T < MM(1) THEN
                    MM(1) = T: MM(2) = (J - 1) * 6 + I
                END IF
                IF T > MM(3) THEN
                    MM(3) = T: MM(4) = (J - 1) * 6 + I
                END IF
            END IF
        END IF
        IF I <= 8 AND J <= 8 THEN
            B(I, J) = T
            IF I = J THEN
                IF T < MM(5) THEN
                    MM(5) = T: MM(6) = (J - 1) * 8 + I
                END IF
                IF T > MM(7) THEN
                    MM(7) = T: MM(8) = (J - 1) * 8 + I
                END IF
            END IF
        END IF
        IF I <= 10 AND J <= 10 THEN
            C(I, J) = T
            IF I = J THEN
                IF T < MM(9) THEN
                    MM(9) = T: MM(10) = (J - 1) * 10 + I
                END IF
                IF T > MM(11) THEN
                    MM(11) = T: MM(12) = (J - 1) * 10 + I
                END IF
            END IF
        END IF
    NEXT I
NEXT J
PRINT "Matrix A:"
PRINT "Min ="; MM(1); "; Ord ="; MM(2)
PRINT "Max ="; MM(3); "; Ord ="; MM(4)
FOR J = 1 TO 6
    FOR I = 1 TO 6
        PRINT A(I, J);
    NEXT I
    PRINT
NEXT J
SLEEP
PRINT "Matrix B:"
PRINT "Min ="; MM(5); "; Ord ="; MM(6)
PRINT "Max ="; MM(7); "; Ord ="; MM(8)
FOR J = 1 TO 8
    FOR I = 1 TO 8
        PRINT B(I, J);
    NEXT I
    PRINT
NEXT J
SLEEP
PRINT "Matrix C:"
PRINT "Min ="; MM(9); "; Ord ="; MM(10)
PRINT "Max ="; MM(11); "; Ord ="; MM(12)
FOR J = 1 TO 10
    FOR I = 1 TO 10
        PRINT C(I, J);
    NEXT I
    PRINT
NEXT J