Вычислить 5x + sin^2 y - 4/(x+7,2) + xy^2

CLS
SCREEN 9, , 1, 0
x = 100
s = 10
clr1 = 5
clr2 = 7
WHILE INKEY$ = ""
PCOPY 1, 0
LINE (400, 100)-(100, 300), 0, BF
LINE (200, 50)-(200, 350), 15
LINE (x, 100)-(200, 300), clr1, BF
LINE (400 - x, 100)-(200, 300), clr2, BF
x = x + s
IF x = 200 THEN s = -s: SWAP clr1, clr2
IF x = 100 THEN s = -s
t = TIMER
WHILE t = TIMER
WEND
WEND

INPUT x, y, e, z
PRINT 5 * x + SIN(y) ^ 2 - 4 / (x + 7.2) + x * y ^ 2
PRINT LOG(ABS((y - SQR(x)) * (x - e ^ y / (z + x ^ 2 / 4))))

INPUT x, y
ygl = ABS(x * 30 + y * .5 + y * 6)
IF ygl >= 360 THEN
PRINT ygl - 360
ELSE
PRINT ygl
END IF

INPUT f
PRINT f \ 1000 + f MOD 10

CLS
INPUT x, y
IF x > y THEN PRINT (x / 3) ^ y
IF x < y THEN PRINT (5 * x + 2 * y + ABS(5 * x - 2 * y)) / 2
IF x = y THEN PRINT y ^ (y + 1) - 6 * x

CLS
INPUT x1, y1, x2, y2
k = (y2 - y1) / (x2 - x1)
b = y1 - k * x1
 
IF b = 0 THEN
          IF x1 = x2 THEN
                PRINT "Прямая лежит на оси ординат."
          ELSE
                IF k > 0 THEN PRINT "Прямая в 1 и 3 квадрантах."
                IF k < 0 THEN PRINT "Прямая во 2 и 4 квадрантах."
                IF k = 0 THEN PRINT "Прямая лежит на оси абсцисс."
          END IF
ELSE
        IF b > 0 THEN
             IF k > 0 THEN PRINT "Прямая в 1, 2 и 3 квадрантах."
             IF k < 0 THEN PRINT "Прямая в 1, 2 и 4 квадрантах."
             IF k = 0 THEN PRINT "Прямая в 1 и 2 квадрантах."
        ELSE
             IF k > 0 THEN PRINT "Прямая в 1, 3 и 4 квадрантах."
             IF k < 0 THEN PRINT "Прямая во 2, 3 и 4 квадрантах."
             IF k = 0 THEN PRINT "Прямая в 3 и 4 квадрантах."
        END IF
END IF

CLS
INPUT a
IF a \ 1000 = 5 OR a \ 1000 = 8 OR a \ 100 MOD 10 = 5 OR a \ 100 MOD 10 = 8 OR a \ 10 MOD 10 = 5 OR a \ 10 MOD 10 = 8 OR a MOD 10 = 5 OR a MOD 10 = 8 THEN
PRINT "yes"
ELSE PRINT "no"
END IF

CLS
INPUT n
CLS
SCREEN 12
FOR i = 0 TO n
      LINE (320 - n * 5 + i * 5, 240 - n * 5 + i * 5)-(320 + n * 5 - i * 5, 240 + n * 5 - i * 5), 15, B
NEXT i

LINE INPUT "Введите строку"; X$
D = LEN(X$)
DIM S$(D)
N = 1
FOR T = 1 TO D
A$ = MID$(X$, T, 1)
IF A$ = "." OR A$ = " " OR A$ = "," THEN
N = N + 1
ELSE
S$(N) = S$(N) + A$
END IF
NEXT T
FOR T = 1 TO N
SOV = 0
FOR K = 1 TO LEN(S$(T))
PS$ = MID$(S$(T), 1, 1)
TS$ = MID$(S$(T), K, 1)
IF (K <> 1) AND (PS$ = TS$) THEN SOV = SOV + 1
NEXT K
IF SOV = 0 THEN PRINT S$(T)
NEXT T

CLS
RANDOMIZE TIMER
INPUT n
DIM x(n)
PRINT "Исходный массив: "
FOR i = 1 TO n
        x(i) = INT(RND * 100)
        IF x(i) MOD 10 = 7 OR x(i) MOD 10 = 5 THEN k = k + 1
        PRINT x(i);
NEXT i
PRINT
PRINT "Цифр оканчивающихся на 5 и 7: "; k
PRINT "Полученный массив: "
FOR j = 1 TO n
FOR i = 1 TO n
        IF x(i) > x(i - 1) THEN SWAP x(i), x(i - 1)
NEXT i
NEXT j
 
FOR i = 1 TO n
        PRINT x(i);
NEXT i

CLS
INPUT a$
INPUT x$
INPUT y$
FOR i = 1 TO LEN(a$)
        IF MID$(a$, i, 1) = x$ THEN a$ = MID$(a$, 1, i - 1) + MID$(a$, i + 1, LEN(a$))
        IF MID$(a$, i, 1) = y$ THEN a$ = MID$(a$, 1, i - 1) + y$ + MID$(a$, i, LEN(a$)): i = i + 1
NEXT
PRINT a$