blema :- ((write('O hall estah molhando? (sim/nao)'), read(Hall_molhado)),
			(write('O hall estah molhando? (sim/nao)'), read(Cozinha_seca)),
			(write('O hall estah molhando? (sim/nao)'), read(Banheiro_seco)),
			(write('O hall estah molhando? (sim/nao)'), read(Janela_fechada)),
			(write('O hall estah molhando? (sim/nao)'), read(Sem_chuva)),
			(regra(Hall_molhado,Cozinha_seca,Banheiro_seco,Janela_fechada,Sem_chuva))).

regra(Hall_molhado,Cozinha_seca,Banheiro_seco,Janela_fechada,Sem_chuva) :- (vazamento_banheiro(Cozinha_seca, Hall_molhado), write('Vazemento no banheiro!')),
																		   (problema_cozinha(Hall_molhado,Banheiro_seco), write('Problema na cozinha!')),
																		   (vazamento_cozinha(Hall_molhado,Banheiro_seco,Janela_fechada,Sem_chuva), write('Vazamento na cozinha!!!')).

vazamento_banheiro(Cozinha_seca, Hall_molhado) :- Cozinha_seca == 'sim', Hall_molhado == 'sim'.
problema_cozinha(Hall_molhado,Banheiro_seco) :- Hall_molhado == 'sim', Banheiro_seco == 'sim'.
sem_agua_exterior(Janela_fechada,Sem_chuva) :- Janela_fechada == 'sim'; Sem_chuva == 'sim'.
vazamento_cozinha(Hall_molhado,Banheiro_seco,Janela_fechada,Sem_chuva) :- problema_cozinha(Hall_molhado,Banheiro_seco),
																		  sem_agua_exterior(Janela_fechada,Sem_chuva).