Algoritmo das posições pares e ímpares

algoritmo "Vetor_invertido"
// Função :
// Autor :
// Data : 16/06/2011
// Seção de Declarações
var
A,B: vetor [1..10] de real
i,cont: inteiro
inicio
para i de 1 ate 10 faca
Escreval("digite um número")
Leia (A [i])
fimpara
para i de 1 ate 10 faca
cont<-cont+1
se (cont mod 2=0) entao
B[cont]<- (A[i]*2)
fimse
se (cont mod 2=1) entao
B[cont]<- (A[i]*0.5)
Fimse
fimpara
para i de 1 ate 10 faca
Escreval (B[i])
fimpara
fimalgoritmo