j(0,0,'Svi'):-!.
j(0,B,'Nema'):-!.
j(A,B,X):-X is (B/A).
kvad(0,B,C,X,X):-j(B,C,X),!.
kvad(A,B,C,X1,X2):-Dis is ((B*B)-4*A*C),Dis >=0,X1 is (((-B)+sqrt(Dis))/2/A),
		   X2 is (((-B)-sqrt(Dis))/2/A),!.
kvad(A,B,C,' ','Diskriminanta je manja od nule').

/* Poziva se sa: 
	- za linearnu jednacinu:  j(Uz_x,Slobodan,Resenje).
	- za kvadratnu jednacinu: kvad(Uz_x2,Uz_x1,Slobodan,Resenje1,Resenje2).
 */