/*
Szimuláljunk egy közvéleménykutatást!
Egy adatfájlból olvassuk be a véleményezendők névsorát, majd lehessen egyenként szavazni rájuk.
A szavazáskor lehessen látni az összes résztvevő nevét, de ne lehessen látni a szavazataik számát.
Maga a szavazás azt jelenti, hogy begépeli a szavazatára érdemes ember nevét 
(természetesen csak az adott névsorban lévőket választhatja)
 
A szavazás tetszőleges pillanatában állapítsa meg, hogy:

a/ eddig összesen hányan szavaztak

b/ eddig kire szavaztak a legtöbben

A szavazás lezárásakor irassa ki a résztvevőket szavazatszámaik alapján csökkenő sorrendben.
Irassa ki ugyanezeket az adatokat fájlba is.

*/


/*
Az alábbiakat tekintse vázlatnak, és alakítsa saját izlése szerint. (Persze úgy, hogy jó legyen :))
*/



start :- adatbe, menu.


menu :- writeln('Válasszon az alábbi menüpontok közül:'),
	writeln('1. szavazás \n2. összesítés \n3. legjobb \n4. kilépés'),
	write('Választása: '), read(V), menu(V).

menu(1) :- nevek_ki,szavaz, menu.

menu(2) :- osszeg, menu.

menu(3) :- max, menu.

menu(4) :- kiiras.

menu(_) :- write('Hibás választás, próbálja újra.'), menu.
