/*
Egy N fős tankör diákjaitól gyűjtenek adományokat valamilyen jó célra. 
Egyenként megkérdezik az embereket, ki mennyit ad. Hány Ft gyűlik össze?

FIGYELEM! Ez a program szintaktikusan hibás, javítsa ki!
Kijavítás után - vagy akár előtte is - gondolja végig szemantikusan is!
*/


start:- write("Hány fős a társaság? "), read(N), 
	adomany(N,0,Ft),
	write('Összesen %w Ft gyűlt össze', [Ft]).

adomany(N, Eddig, Ft) :- N>0, write('Mennyit ad? '), 
			 read(Ad),
		 	 Ujeddig is Eddig + Ad, UjN is N-1, 
			 adomany(UjN, UjEddig, Ft),
adomany(_,Ft,ft).