vaike(X):- between(1, 10, X).

vaike(A1), vaike(B1), vaike(C1), 
vaike(A2), vaike(B2), vaike(C2), 
vaike(X), vaike(Y),
A1*X+B1*Y=:=C1,
A2*X+B2*Y=:=C2, A1\=A2.


% Lahendage Prologi abil ruutvõrrand
% x*x-8x+15=0

vaike(X1), vaike(X2), vaike(A), vaike(B), vaike(C),
A*X1*X1+B*X1+C=:=0, 
A*X2*X2+B*X2+C=:=0,
X1\=X2.

https://tunnikavad.weebly.com/prolog.html

Ülesanne 4

    L=[
    isik(ants, punane, _, _),
    isik(jyri, _, korvpall, _),
    isik(mati, _, _, _)
    ],
    member(isik(_, sinine, _, kana), L),
    member(isik(_, _, jalgpall, koer) , L),
    member(isik(_, roheline, _, kanaarilind), L).