Vector con números naturales pares

Programa en Pseudocódigo para cargar un vector de dimensión N con primeros elementos naturales  pares y mostrarlo por pantalla.

Proceso vector_pares
    Dimension a[1000]
    Repetir
        leer n
    Hasta Que (n>1 & n = trunc(n))
    Para i<-1 Hasta n Con Paso 1 Hacer
        a[i]<-i*2
    FinPara
    Para i<-1 Hasta n Con Paso 1 Hacer
        Escribir a[i]
    FinPara
FinProceso