code

(setq start (read))
(setq end (read))
; initializing the counter value to 0 so as to increase it further in the program
(defvar counter 0)

(write "value of num1 is: ")
(write start)
(terpri)
(write "value of num2 is: ")
(write end)
(terpri)

(if (< start end)
(loop for i from start to end do (if (=(mod i 3) 0 )(if ( /= (mod i 9) 0 )
(and (print i)(setq counter(+ counter 1))))))
)
(terpri)
(write "value of count is: ")
(write counter)