(defvar manchas_na_pele t)
(defvar tem_febre nil)
(defvar sensibilidade nil)
(defvar bordas_irregulares nil)
(defvar coceira t)

(if manchas_na_pele
    (block block_true
        (write-line "MANCHAS NA PELE: SIM")
        (write-line "VAMOS VERIFICAR SE VOCE TEM FEBRE...")
        (write-line "")
        (if tem_febre
            (block block_true
                (write-line "FEBRE: SIM")
                (write-line "VOCE PODE ESTAR COM CATAPORA")

            )
            (block block_false
                (write-line "FEBRE: NAO")
                (write-line "VAMOS VERIFICAR SE VOCE TEM PERDA DE SENSIBILIDADE...")
                (write-line "")
                (if sensibilidade
                    (block block_true
                        (write-line "PERDA DE SENSIBILIDADE: SIM")
                        (write-line "VOCE PODE ESTAR COM HANSENIASE!")

                    )
                    (block block_false
                        (write-line "PERDA DE SENSIBILIDADE: NAO")
                        (write-line "VAMOS VERIFICAR SE VOCE POSSUI BORDAS IRREGULARES...")
                        (write-line "")
                        (if bordas_irregulares
                            (block block_true
                                (write-line "BORDAS IRREGULARES: SIM")
                                (write-line "VOCE PODE ESTAR COM CANCER DE PELE!")

                            )
                            (block block_false
                                (write-line "BORDAS IRREGULARES: NAO")
                                (write-line "VAMOS VERIFICAR SE VOCE ESTA COM COCEIRA...")
                                (write-line "")
                                (if coceira
                                    (block block_true
                                        (write-line "COCEIRA: SIM")
                                        (write-line "VOCE PODE ESTAR COM PSORIASE!")

                                    )
                                    (block block_false
                                        (write-line "COCEIRA: NAO")
                                        (write-line "Procure o seu PSF")
                                    )
                                )
                            )
                        )
                    )
                )
            )
        )
    )
    (block block_false
        (write-line "Nao possui febre")
        (write-line "Procure o seu PSF")
    )
)