predicates
    patient(integer,symbol,symbol,integer).
    illness(symbol,symbol).
    medcard(integer,integer,symbol,symbol,symbol).

    question1(symbol).
    question2(integer).
    question3(symbol).
    question4(symbol,integer,integer).

clauses
    patient(1, ivanov, m, 1955).
    patient(2, petrov, m, 1956).
    patient(3, sidorov, m, 1975).
    patient(4, sharova, f, 1975).
    patient(5, gepner, m, 1959).
    patient(6, komov, m, 1989).

    illness(cold, cough).
    illness(flu, temperature).
    illness(cancer, tumor).
    illness(diarrhea, "loose stools").
    illness(alopecia, baldness).

    medcard(1, 2000, cold, "hot tea", bykov).
    medcard(2, 2001, alopecia, regain, lobanov).
    medcard(3, 2002, flu, antibiotic, bykov).
    medcard(4, 2004, diarrhea, "activated carbon", lobanov).
    medcard(5, 2005, cancer, chemotherapy, bykov).
    medcard(6, 2006, cancer, chemotherapy, lobanov).

    question1(X):-
        patient(Z,X,_,_),
        medcard(Z,_,I,_,_),
        illness(I,Res),
        write(Res), nl, fail.

    question2(A):-
        patient(N,F,_,IA),
        2018 - A > Ia,
        medcard(N, _, Ill,_,_),
        write(F), write(" "), write(Ill), nl, fail.

    question3(P):-
        patient(N,P,_,_),
        medcard(N,_,Ill,_,_),
        medcard(AN,_,Ill,_,_),
        patient(AN,Res,_,_),
        P<>Res,
        write(Res), nl, fail.

    question4(D,F,T):-
        medcard(N,Y,_,_,D),
        Y > F, Y < T,
        patient(N,Res,_,_),
        write(Res), nl, fail.