Помогите решить ** бейсике 3 задание

Question

Помогите решить на бейсике 3 задание

---

Answer 1

DIM d AS DOUBLE, R AS DOUBLE, Z AS DOUBLE
INPUT "d,R=", d, R
IF d = -2 AND R > 0 AND d < 1 THEN
   Z = (3.5 * R + .5 * ABS(d)) / SQR(R ^ 2 + R ^ 3)
ELSE
   Z = R ^ (d / 3)
END IF
PRINT "Z="; Z