CLS
'OPEN "input.txt" FOR OUTPUT AS #1
'PRINT #1, "8 4"
'PRINT #1, "1 1 1 1"
'CLOSE #1
OPEN "input.txt" FOR INPUT AS #1
LINE INPUT #1, a$
CLOSE #1
FOR r = 48 TO 57
IF RIGHT$(a$, 1) = CHR$(r) THEN chch = r - 48
NEXT r
OPEN "input.txt" FOR INPUT AS #1
WHILE NOT EOF(1)
LINE INPUT #1, a$
WEND
CLOSE #1
'PRINT a$
DIM a$(100): DIM b$(100): DIM a(100): DIM b(100): DIM x(100): DIM y(100)
w = 1
FOR e = 1 TO LEN(a$)
IF MID$(a$, e, 1) <> " " THEN a$(w) = a$(w) + MID$(a$, e, 1) ELSE w = w + 1
NEXT e
FOR e = 1 TO w
FOR i = LEN(a$) TO 1 STEP -1
b$(e) = b$(e) + MID$(a$(e), i, 1)
NEXT i
NEXT e
FOR e = 1 TO w
FOR i = 1 TO LEN(b$(e))
FOR u = 48 TO 57
IF MID$(b$(e), i, 1) = CHR$(u) THEN a(e) = a(e) + (u - 48) * 10 ^ (i - 1)
NEXT u
NEXT i
NEXT e
'поиск возможного отрезка
l = 0: x(0) = 10: y(0) = 10
FOR v = 1 TO chch
FOR e = 0 TO 50
FOR i = 0 TO 50
IF e ^ 2 + i ^ 2 = a(v) AND v <= chch / 2 THEN l = l + 1: x(l) = x(l - 1) + e: y(l) = y(l - 1) + i
'IF e ^ 2 + i ^ 2 = a(v) AND v > chch / 2 THEN l = l + 1: x(l) = x(l - 1) - e: y(l) = y(l - 1) - i
NEXT i
NEXT e
NEXT v
FOR e = 1 TO l
'PRINT x(e); " "; y(e)
NEXT e
IF (x(l) - 10) ^ 2 <> 0 THEN GOTO 1.6 ELSE GOTO 1.5
1.5
OPEN "output.txt" FOR OUTPUT AS #1
FOR e = 1 TO l
PRINT #1, x(e); " "; y(e)
NEXT e
CLOSE #1
GOTO 1.7
1.6
OPEN "output.txt" FOR OUTPUT AS #1
PRINT #1, "-1"
CLOSE #1
1.7
'FOR e = 1 TO l
'PRINT x(e); " "; y(e)
'NEXT e
OPEN "output.txt" FOR INPUT AS #1
WHILE NOT EOF(1)
LINE INPUT #1, a$
WEND
CLOSE #1
SYSTEM