Вычислить значение функции

CLS
INPUT "vvedit x:"; x
 
DEF FN a(x)
a = (x * x * x * x) - 5 / 3 * x + 1.2 * SIN(2 * x) + .6 * COS(x)
END DEF
 
DEF FN b(x)
b = (x * x) - (COS(x) * COS(x)) + LOG(ABS(1 - 2.3 * ((COS(2 * x) * (COS(2 * x)))))) - 1 / 3
END DEF
 
DEF FN c(x)
c = 2 * (x * x * x * x) + 2.5 * (x * x) + 4 * ABS(SIN(2 * x) * COS(3 * x))
END DEF
 
DEF FN d(x)
d = 2 * (x * x) - 2.3 * x + 2 / 3 * COS(3 * x) * SIN(2 * x)
END DEF
 
DEF FN e(x)
e = 1314.15 / 38.78
END DEF
 
DEF FN f(x)
f = EXP(4 * ln(5)) - 5 / 3 * 5 + 1.2 * SIN(2 * 5) + .6 * COS(5)
END DEF
 
q = FNa(x)
w = FNb(x)
e = FNc(x)
r = FNd(x)
t = FNe(x)
y = FNf(x)
 
PRINT
PRINT USING "F(x)###.##"; q
PRINT USING "F1(x)###.##"; w
PRINT USING "F2(x)###.##"; e
PRINT USING "F3(x)###.##"; r
PRINT USING "F4(x)###.##"; t
PRINT USING "F5(x)###.##"; y