Vetor 12 numeros

algoritmo "Vetor 12 numeros"
var
   num : vetor[1..12] de inteiro
   VetP : vetor[1..12] de inteiro
   vetI : vetor[1..12] de inteiro
   i : inteiro
inicio
   para i de 1 ate 12 faca
      leia (num[i])
      se num[i] % 2 = 0 entao
         vetP[i] <- num [i]
      senao
         vetI[i] <- num [i]
      fimse
   fimpara
   limpatela
   escreval ("-----Pares-----")
   para i de 1 ate 12 faca
      escreval (vetP[i])
   fimpara
   escreval ("-----Impares-----")
   para i de 1 ate 12 faca
      escreval (veti[i])
   fimpara
fimalgoritmo