Área do triângulo com entrada de dados pelo teclado

; Exercicio 6 - Projecto com processamento trigonométrico e entrada de dados pelo teclado
; Exercício resolvido por: Rui Maia (deathseeker25@portugal-a-programar.org) 
; Escreva em Scheme o procedimento area-triangulo que devolve a área do triângulo,
; em que a leitura dos comprimentos dos 3 lados é feita através do teclado.

(define area-triangulo
  (lambda ()
    (display "lado1: ")
    (let ((lado1 (read)))
      (display "lado2: ")
          (let((lado2 (read)))
      (display "lado3: ")
          (let((lado3 (read)))
          (let((sp (/ (+ lado1 lado2 lado3) 2)))
      (display "Area do triangulo: ")
      (sqrt (* sp (* (- sp lado1) (- sp lado2) (- sp lado3))))))))))

;> (area-triangulo)
;lado1: 10
;lado2: 20
;lado3: 25
;Area do triangulo: 94.99177595981665