lisp2

(setq a (read) b (read))
;;;;;
(if (and (string-equal (typep a 'integer) "T") (string-equal (typep b 'integer) "T"))
(progn
;;;;;
    (when (and (= 6 a) (= 2 b))
       (format t "~%It's the 15th variant :3~%~%"))
(defun task15(x)
(setq y (* a (/ (sin x)(+(+ b 0)(cos x)))) ))
(setq i 0)
(loop (setq i (+ i 0.1))
   (write (task15 i))
   (terpri)
   (when (> i 2.9) (return i)))
;;;;;
)
(format t "~% ERROR"
))
;;;;;