10. Se desea calcular independientemente la suma de los números pares e impares comprendidos entre 1 y 50.

Inicio
	B, i: entero
	S1 « 0; S2 « 0 : real
	Para(i=1; i<50; i++)
		Repetir
			Ingresar B
		Hasta (B mod 2 = 0)
		Hacer S1 « S1 + B
			Mostrar"S1"
		Hasta (B mod 2 <> 0)
		Hacer S2 « S2 + B
		Mostrar"S2"
	Fin_Para
Fin

Autor:
AQUINO ODAR GUSTAVO