ispis(A,B,D,E,G):- write(A), tab(3),write(B), tab(3), write(A),
                   nl,
                   write(D), tab(3),write('X'), tab(3), write(E),
                   nl,
                   write(A), tab(3),write(G), tab(3), write(A).

resenje(A,B,D,E,G,N,M):- cifra(A,M),
                           cifra(B,M),
                           cifra(D,M),
                           cifra(E,M),
                           cifra(G,M),
                           N1 is A + B + D + E + 4*G,
                           jednako(N,N1).
                           
                     
cifra(G,M):- integer(G), G > 0, G =< M.


jednako(X,Y):- integer(X),integer(Y), X == Y. 

program(N,M):- resenje(A,B,D,E,G,N,M),
               ispis(A,B,D,E,G).