Boa tarde pessoal,
Estou tentando fazer um algoritmo so que ele está dando um erro que informa que o até não tem o repita atrelado.
Algoritmo "semnome"
// Uma empresa de vendas tem três corretores. A empresa paga ao corretor uma
//comissão calculada de acordo com o valor de suas vendas. Se o valor da venda
// de um
//corretor for maior que R$ 50.000.00 a comissão será de 12% do valor vendido. Se o
//valor da venda do corretor estiver entre R$ 30.000.00 e R$ 50.000.00 (incluindo
//extremos) a comissão será de 9.5%. Em qualquer outro caso, a comissão será de 7%.
//Escreva um algoritmo que gere um relatório contendo nome, valor da venda e
//comissão de cada um dos corretores. O relatório deve mostrar também o total de
//vendas da empresa.
Var
sair : caracter
total : real
i, j : inteiro
nome: vetor[1..100] de caracter
vvenda: vetor[1..100] de real
comissao: vetor[1..100] de real
Inicio
escreval("########################################")
escreval("### ###")
escreval("### Cadastro de Venda Corretores ###")
escreval("### ###")
escreval("########################################")
escreval("")
sair <- "s"
repita
para i de 1 ate 100 faca
para j de 1 ate 100 faca
escreva("Digite o nome do vendedor: ")
leia(nome[i])
escreva("Digite o valor da venda: ")
leia(vvenda[j])
escreval("Deseja cadastrar outro corretor? Digite s para SIM e n para NÃO")
ate sair <> "n"
fimpara
fimpara
se ( vvenda[j] > 50000 ) então
comissao[j] <- vvenda[j] * 0.12
senao
se ( vvenda[j] >= 30000 ) e ( vvenda[j] <= 50000 ) então
comissao[j] <- vvenda[j] * 0.095
senao
comissao[j] <- vvenda[j] * 0.07
fimse
fimse
total <- vvenda[j] + total
fimenquanto
para i de 1 ate 100 faca
para j de 1 ate 100 faca
escreval("O vendedor: ", nome[i], " vendeu R$ ", vvenda[j], " sua comissao foi de R$ ", comissao[j])
fimpara
fimpara
escreval("A empresa vendeu um total de R$ ", total)
Fimalgoritmo
O que estou fazendo de errado ?