men:=0;
	countlotto:=0;
	countshow:=0;
	countfood:=0;
	countfree:=0;
	readln(lotto);
	readln(show);
	readln(food);
	while (lotto <> -1) do
	begin
		men:=men+1;
		countlotto:=countlotto+lotto;
		countshow:=countshow+show;
		countfood:=countfood+food;
		if (lotto > 10) then countfree:=countfree+1;
		readln(lotto);
		readln(show);
		readln(food);
	end;
	writeln('סך-הכל אנשים שהשתתפו: ',men);
	writeln('סך-הכל כרטיסי הגרלה שנמכרו: ',countlotto);
	writeln('סך-הכל כרטיסים להופעה שנמכרו: ',countshow);
	writeln('סך-הכל כרטיסים למזנון שנמכרו: ',countfood);
	writeln('סך-הכל כרטיסי הגרלה שניתנו חינם: ',countfree);

	readln(lotto);
	while (lotto <> -1) do
	begin
		readln(show);
		readln(food);
		men:=men+1;
		countlotto:=countlotto+lotto;
		countshow:=countshow+show;
		countfood:=countfood+food;
		if (lotto > 10) then countfree:=countfree+1;
		readln(lotto);
	end;