Help DM sur les exposant et je comprends pas cet exercices je suis un à 4 chiffre carrément carré . Je suis un carré et les nombre formé par mes Deux premiers c

Bonjour,
1681
voir //oeis.org/A145848
DIM a AS INTEGER, b AS INTEGER, c AS INTEGER, d AS INTEGER
DIM n1 AS INTEGER, n2 AS INTEGER, rac AS DOUBLE
FOR a = 0 TO 9
    FOR b = 0 TO 9
        FOR c = 0 TO 9
            FOR d = 0 TO 9
                rac = SQR(a * 1000 + b * 100 + c * 10 + d)
                IF rac = INT(rac) THEN
                   n1 = a * 10 + b
                    rac = SQR(n1)
                    IF rac = INT(rac) AND n1 > 0 THEN
                        n2 = c * 10 + d
                        rac = SQR(n2)
                        IF rac = INT(rac) AND n2 > 0 THEN
                            PRINT a; b; c; d
                        END IF
                    END IF
                END IF
            NEXT d
        NEXT c
    NEXT b
NEXT a
END