(define souckvadr 
   (lambda (x y) 
      (define kvadr 
         (lambda (x) (* x x))
      )  
      (+ (kvadr x) (kvadr y))
   )
)

(souckvadr 5 4)