"Bетвление"

input r1
input r2
if abs(x)<r1 and abs(x)>r2 and abs(y)<r1 and abs(y)>r2 then print"yes" else print"no"

input "vvedite koordinaty ferzya ",x,y
input "vvedite koordinaty polya ",x1,y1
if abs(x1-x)=abs(y1-y) or x=x1 or y=y1 then print"yes" else print"no"

INPUT "vvedite stroku ", a$
INPUT "vvedite kol-vo slov ", n
FOR i = 1 TO LEN(a$)
IF MID$(a$, i, 1) = " " THEN k = k + 1
IF k = n - 1 THEN b$ = MID$(a$, i + 1) + " " + LEFT$(a$, i)
NEXT
PRINT "novaya stroka:"
PRINT b$

INPUT "vvedite stroku ", a$
FOR i = 1 TO LEN(a$)
IF MID$(a$, i, 1) = " " THEN m = m + 1
NEXT
INPUT "vvedite kol-vo slov ", n
IF n > (m + 1) THEN n = n MOD (m + 1)
FOR i = 1 TO LEN(a$)
IF MID$(a$, i, 1) = " " THEN k = k + 1
IF k = n - 1 THEN b$ = MID$(a$, i + 1) + " " + LEFT$(a$, i)
NEXT
PRINT "novaya stroka:"
PRINT b$