program stats;
uses crt;
var num,soma,cpar,cimp: Longint;
	media,ppar,pimp: real;
begin
	soma:=0;cpar:=0;cimp:=0;
	repeat
		repeat
			write('Numero ?(0 para sair)',#13,#10,'>');readln(num);
			if(num<0) then 
				writeln('Dados invalidos >0');	
		until num>=0;
		if num>0 then begin  
			soma:=num+soma;
			if (num mod 2) = 0 then
				cpar:=cpar+1
				else
				cimp:=cimp+1;
		end;	
	until num=0;
	media:=soma/(cpar+cimp);
	ppar:=100*(cpar/(cpar+cimp));
	pimp:=100-ppar;
	writeln('Media aritmetica: ',media:3:2);
	writeln('Numeros pares: ',cpar);
	writeln('Numeros impares: ',cimp);
	writeln('Percentagem de numeros pares: ',ppar:3:2);
	writeln('Percentagem de numeros impares: ',pimp:3:2);
	readln;
end.