Proceso Par/Impar

Proceso parimpar
Escribir "Ingrese un numero";
Leer num;
Si num mod 2 =0 Entonces
Escribir "El numero es par";
Sino
Escribir "El numero es impar";
FinSi
FinProceso