UgRus_1

DIM N AS INTEGER, I AS INTEGER, II AS INTEGER, J AS INTEGER, JJ AS INTEGER
DIM S AS LONG
CLS
DO
    INPUT "Input N [2..10]: ", N
LOOP WHILE N < 2 OR N > 10
DIM A(1 TO N, 1 TO N) AS INTEGER, B(1 TO N, 1 TO N) AS INTEGER
FOR J = 1 TO N
    FOR I = 1 TO N
        PRINT "A("; I; ","; J; ") = ";
        INPUT "", A(I, J)
    NEXT I
    PRINT
NEXT J
FOR J = 1 TO N
    FOR I = 1 TO N
        FOR JJ = 1 TO N
            FOR II = 1 TO N
                IF ((I <> II) OR (J <> JJ)) AND (A(I, J) = A(II, JJ)) THEN
                    B(I, J) = 1
                END IF
            NEXT II
        NEXT JJ
        IF B(I, J) = 0 THEN
            S = S + A(I, J)
            PRINT A(I, J); ": ("; I; ","; J; ")"
        END IF
    NEXT I
NEXT J
PRINT "Sum ="; S
FOR J = 1 TO N
    FOR I = 1 TO N
        IF B(I, J) = 1 THEN
            PRINT "_";
        ELSE
            PRINT A(I, J);
        END IF
    NEXT I
    PRINT
NEXT J