CLS
DIM A(100, 100), B(1000)
INPUT N
FOR I = 1 TO N
  FOR J = 1 TO N
    INPUT A(I, J)
NEXT J, I
FOR I = 1 TO N
  FOR J = 1 TO N
    PRINT USING "####"; A(I, J);
  NEXT J
  PRINT
NEXT I
GOSUB 100
FOR I = 1 TO N
  PRINT I, B(I)
NEXT
END
100
B(1) = 1
I = 2
J = 1
DO WHILE I <= N
  DO WHILE J <= 4 AND I <= N
    K = 1
    DO WHILE K < I AND B(K) * A(I, K) <> J
      K = K + 1
    LOOP
    IF K < I THEN
      J = J + 1
    ELSE
      B(I) = J
      I = I + 1
      J = 1
    END IF
    IF J > 4 THEN I = I - 1: J = B(I) + 1
  LOOP
LOOP
RETURN
    

此题蛮难的