p(1).

sortowanie( [H|Lista] , Posortowana ) :-
	sortowanie(Lista , Temp ),
	wstaw( H , Temp, Posortowana ).
sortowanie([],[]).

wstaw(X, [H|Lista], [H|Wynik]) :-
	H>X, !, wstaw(X, Lista, Wynik).
	wstaw(X,Lista,[X|Lista]).



czy_graficzny([0],_).
czy_graficzny([H|Lista], Odp) :-
	substract(Lista,H,Temp),
	sortowanie(Temp,Temp2),
	czy_graficzny(Temp2,Odp).

substract(H,0,H).
substract([Head|Tail], HowMany, [HResult|TResult]) :-
	HowMany>0,
	HM is HowMany-1,
	HResult is Head-1,
	substract(Tail,HM,TResult).