Vetor 10 nomes

algoritmo "Vetor 10 nomes"
var
   Vetn: vetor [1..10] de caracter
   i: inteiro
inicio

   para i de 1 ate 10 faca
      Escreval ("Escreva 10 nomes")
      limpatela
      leia (Vetn[i])
   fimpara
   limpatela
   para i de 1 ate 10 faça
      escreval ("Nome", i ,":", Vetn[i])
   fimpara
fimalgoritmo