Nº PAR E Nº IMPAR

O CODIGO

Program Prog_ciclo_pares_impares ;
var
n1,n2,n3,n4,n5,n6:integer;
n7,n8,n9:real;
Begin
writeln('para sair escreva 0 quando pedir o numero');
n4:=0; // inicializar a soma
n3:=0; // inicializar o contador de numeros
n5:=0; // inicializar o contador de pares
n6:=0; // inicializar o contador de impares
repeat
writeln('intruduza o numero. ');
read(n2);
if n2 > 0 then
begin
n4:=n4+n2;
n3:=n3+1;
if n2 mod 2 = 0 then
n5:=n5+1
else
n6:=n6+1;
end;
until n2 = 0;
n7:=n4/n3; //media
n8:=(100*n5)/n3; //% nºs pares
n9:=(100*n6)/n3; //% nºs impares
writeln('a media é ',n7:5:2);
writeln('numeros pares:',n8:5:2,'%');
writeln('numeros impares:',n9:5:2,'%');
End.

O RESULTADO FINAL