Ejercicio 6 de Speint: ¿como sacar los números impares y los pares de un numero y la suma de los mismo?

Proceso nub
definir a,b,c,n Como Entero;
definir numero como cadena;
a<-1;
Mientras a<=5 Hacer
Escribir "ingrese numero";
leer c;
Escribir "pares";

b<-0;
Para a<-2 Hasta c Con Paso 2 Hacer
b<-b+a;
Escribir "numeros pares",a;
FinPara
Escribir 'La suma es: ',b;

Escribir "impares";
b<-0;
Para a<-1 Hasta c Con Paso 2 Hacer
b<-b+a;
Escribir "numeros impares",a;
FinPara
Escribir 'La suma es: ',b;
FinMientras