Proceso par_imar
	escribir "ingrese el numero"
	leer a
	si a mod 2=0 entonces 
		escribir "es par"
	Sino
		escribir "es impar"
	FinSi
	
FinProceso