Var
x: vetor [0..18] de inteiro
y: vetor [0..19] de inteiro
z: vetor [0..19] de inteiro
c: inteiro

Inicio
para c <- 0 ate 18 passo 2 faca
escreva("digite x: ")
leia(x[c])
fimpara

para c <- 1 ate 19 passo 2 faca
escreva("digite y: ")
leia(y[c])
fimpara

para c <- 0 ate 18 passo 2 faca
z[c] <- x[c]
fimpara

para c <- 1 ate 19 passo 2 faca
z[c] <- y[c]
fimpara
para c <- 0 ate 19 faca
escreva(z[c])
fimpara

#!/bin/bash
par=0
impar=0
soma=0
ate=(seq $ini $fim)

echo ” “Informe o valor do limite inferior: “”
read ini
echo “Informe o valor do limite superior: ”
read fim
if [ `expr $ate % 2` -eq 0 ]; then
read par
else
read impar
fi
for i in $(seq $ini $fim); do
soma=$(($par+i))
echo “$i”
done
echo “Soma: $soma”
PORQUE DA ERRO ::

Portugol para VisualG