(defun main (&rest argv) (declare (ignorable argv)) (let* ((n (read)) (g (read)) (v (read)) (a (floor (* (floor n 5) g) v)) (b (mod (* (floor n 5) g) v))) (format t "~d." a) (dotimes (_ 12) (setq b (* b 10)) (format t "~d" (floor b v)) (setq b (mod b v))) (format t "~%"))) (main)