Calcular area de un circulo

;;autor:jose david
;;fecha:7/12/20
;;contrato: radio,3.1416->numero
;;proposito: la funcion calcula el area de un circulo
;;ejemplos (radio 5)->78.54
;;definicion

(define (operacion r)
(* pi (sqr r)))

(check-within(operacion 5)78.54 0.1)