Programa para calcular a quantidade par e impar

Esta é uma pré-visualização de arquivo. Entre para ver o arquivo original

Program Impar;
 Var
i, Qp, Qimp, num:Integer; 
Begin
i:=0;
Qimp:=0;
Qp:=0; 
 While i<=10 do 
begin
 writeln('int. num');
		readln (num); 
 if num MOD 2=0 Then
		Qp:= Qp+1
		else
 Qimp:= Qimp+1;
 i:=i+1
End;
writeln ('pares=',Qp,'Impares=',Qimp); 
readln; 
End.