Ejercicio 19 de Pseint: ¿como saber si un año es bisiesto o no?

Proceso añio_bisiesto
definir a,b,c Como Entero;
dimension a(5);
Para b<-0 Hasta 4 Con Paso 1 Hacer

escribir "ingrese año";
leer a(b);
FinPara
Para b<-0 Hasta 4 Con Paso 1 Hacer
c<-a(b)%100;
Si c%4=0 Entonces
Escribir "el año ",a(b)," es bisiestos";
Sino
Si a(b)%400=0 Entonces
Escribir "el año",a(b)," es bisiesto";
Sino
Escribir "el año",a(b)," no es bisiesto";
FinSi
FinSi
FinPara

FinProceso