% Medical Diagnostic System

diagnose(fever, cough, flu).
diagnose(cough, sneezing, common_cold).
diagnose(fever, chills, malaria).
diagnose(vomiting, diarrhea, food_poisoning).

go :-
    write('Enter first symptom: '),
    read(S1),
    write('Enter second symptom: '),
    read(S2),
    diagnose(S1, S2, Disease),
    write('Possible disease: '),
    write(Disease),
    nl.