REM func
CLS
SCREEN 12
COLOR 11
INPUT "vvedite x,y"; x, y
IF ((x < -2) OR (x > 3)) AND ((y < -1) OR (y > 3)) THEN
PRINT "net"
ELSE
FOR x = -2 TO 3 STEP .1
a = LOG(2 + x ^ 2) / LOG(10)
FOR y = -1 TO 3 STEP .1
b = y ^ 2
z = a + b
PRINT USING "###.#####"; z
PSET (a, b), (6)
NEXT y
NEXT x
t = 270
k = 330
LINE (t - 150, k)-(t + 350, k), (6)
LINE (t, k + 50)-(t, k - 300), (6)
END IF
FOR d = k + 50 TO k - 300 STEP 10
LINE (t - 5, d)-(t + 5, d), (6)
NEXT d
FOR r = t - 150 TO t + 350 STEP 10
LINE (r, k + 5)-(r, k - 5), (6)
NEXT r

END