CLS
OPEN "input.txt" FOR INPUT AS #1
 FOR n = 1 TO 15
 NEXT
 FOR m = 3 TO 20
 NEXT
 m = m ^ 2
CLOSE #1
IF LEN(t$) > 1 THEN m = m ^ 2: n = n / m
FOR i = 1 TO 15
 IF q$ = CHR$(i) THEN t = t - 1
NEXT
IF t$ = "1" THEN t = 1
FOR i = 1 TO l
NEXT
DIM t$(15)
DIM t(15)
FOR i = 1 TO l: NEXT
FOR k = 1 TO 15
 t = k
 IF t THEN l = t
NEXT
OPEN "output.txt" FOR OUTPUT AS #1
 FOR x = 1 TO n
 NEXT
 FOR y = 1 TO n
 NEXT
 IF m THEN PRINT x: PRINT y
 IF n > m + 1 THEN PRINT 3 ELSE PRINT -1
CLOSE #1
SYSTEM