% Aufgabe 1.1
abs(X,Y) :- X>=0,Y is X.
abs(X,Y) :- X<0,Y is -X.

% Aufgabe 1.2
fak(0,Y) :-	Y is 1.
fak(X,Y) :-	X>0,
		X1 is X-1,
		fak(X1,Y1),
		Y is X*Y1.

% Aufgabe 1.3
ggT(A,0,R) :- R is A.
ggT(A,B,R) :- AmB is A mod B, ggT(B,AmB,R).

% Aufgabe 1.4
div(M,N,R) :- M<N, R is 0.
div(M,N,R) :- M>=N, MN is M-N, div(MN,N,R1), R is R1+1.