vectores 2 (programa 10) final de pseint

Proceso vectores
//declarar variables
Definir a,b como numero;
Dimension vec[20]
//Proceso
Para a<- 1 Hasta 20 Hacer
Escribir "Dame un numero"
Leer vec[a]
Si vec[a]>15 Entonces
Escribir vec[a]
FinSi
FinPara
Escribir "David Marin"
FinProceso