Programa que suma los pares e impares del 1 al 100

Inicio
    a<-0;
    b<-0;
    Para x<-1 Hasta 100 Hacer
        Escribir "[", x, "]";
        Si (x%2)=0 Entonces
            a<-a+x;
        Sino
            b<-b+x;
        FinSi
    FinPara
    Escribir "la suma de los pares es", a;
    Escribir "la suma de los impares es", b;
Fin