Um comerciante comprou um produto e quer vendê-lo com um lucro de 45% se o valor da compra for menor - Desafio de Programação Resolvido em LISP

Informe o valor do produto: 85
O valor de venda é: 110.5

; Variáveis usadas na resolução do problema
(let ((valor)(valor_venda))
  ; Vamos ler o o valor do produto
  (princ "Informe o valor do produto: ")
  (force-output)
  (setq valor (read))
  
  (if(< valor 20)
    (setq valor_venda (+ valor (* valor (/ 45.0 100))))
    (setq valor_venda (+ valor (* valor (/ 30.0 100))))  	
  )
   
  ; E mostramos o resultado
  (format t "O valor da venda é ~D" valor_venda)
)