Par ou ímpar? Média e Percentagens

Ver código Ver imagens

Código

Program parOUimpar;
  var soma,n,cont,par,impar:integer;
 var media,percent_par,percent_impar:real;
 
 Begin
 soma:=0;
 cont:=0;
 par:=0;
 impar:=0;
 
 Repeat
 writeln('numero:');
 readln(n);
  if n>0 then
  	begin	
 soma:=soma+n;
 cont:=cont+1;
 	if n mod 2=0 then
 		par:=par+1	
 	else
	 	impar:=impar+1;
 	 end;	
 until n=0; 
 
 media:=soma/cont;
 writeln('os numeros que escolheste tem de media:',media:5:2);
 percent_par:=((par/cont)*100);
 percent_impar:=((impar/cont)*100);
 writeln('a percentagem dos numeros pares e:',percent_par:5:2);
 writeln('a percentagem dos numeros impares e:',percent_impar:5:2); 
  
 End.

Imagens