Вопрос написать программу 1/(a+3)-4b^2-c^3+5d

(define (y a b c d) (+ (/ 1 (+ a 3)) (* -4 b b) (* -1 c c c ) (* 5 d))) (let ( (a (begin (format #t "Enter a: ")(read))) (b (begin (format #t "Enter b: ")(read))) (c (begin (format #t "Enter c: ")(read))) (d (begin (format #t "Enter d: ")(read))) ) (format #t "Result: ~a " (exact->inexact (y a b c d)) ) )

Вот держи первая задача y:=1/(a+3) - 4*sqr(b) - sqr(c)*c + 5*d;