;Pergunta 1
(defun find-3 (list)
  (car (car (car (cdr list))))
)

;Pergunta 2
(defun raiz-quadrada (n)
  (cond
   ((< n 0) nil)
   (t (sqrt n))
  )
)