vetores e posiçoes

algoritmo "vetores e posiçoes"
var
   vetA: vetor [1..15] de inteiro
   vetB: vetor [1..15] de inteiro
   vetC: vetor [1..15] de inteiro
   vetD: vetor [1..15] de inteiro
   vetE: vetor [1..15] de inteiro
   i, x: inteiro
   soma, fatorial, tamanho: inteiro
inicio
   tamanho<-5
   para i de 1 ate tamanho faca
       escreval("Digite a posição ",i," do vetA")
       leia(vetA[i])
       limpatela
   fimpara
   para i de 1 ate tamanho faca
       escreval("Digite a posição ",i," do vetB")
       leia(vetB[i])
       limpatela
   fimpara
   para i de 1 ate tamanho faca
       soma <- 0
       para x de 1 ate vetA[i] faca
           soma <- soma + x
       fimpara
       vetC[i] <- soma
   fimpara
   para i de 1 ate tamanho faca
       fatorial <- 1
       para x de 1 ate vetB[i] faca
           fatorial <- fatorial * x
       fimpara
       vetD[i] <- fatorial
   fimpara
   para i de 1 ate tamanho faca
       vetE[i] <- (vetC[i]+vetD[i])-(vetA[i]+vetB[i])
   fimpara
   para i de 1 ate tamanho faca
       //escreval("vetE[",i,"]=",vetE[i])
       escreva("vetA[",i,"]=",vetA[i])
       escreva(" | vetB[",i,"]=",vetB[i])
       escreva(" | vetC[",i,"]=",vetC[i])
       escreva(" | vetD[",i,"]=",vetD[i])
       escreval(" | vetE[",i,"]=",vetE[i])
   fimpara
fimalgoritmo