Ajuda com algoritmo

[pvfinger]

como eu faço para escrever esse godigo usando o VisuAlg ... ate agora eu fiz desse jeito:

algoritmo "trabalho"
// Função : definir qual candidato irar vencer uma eleição.
// Autor :    pessoas
// Data : 4/8/2010
// Seção de Declarações 
var
   eleitores,{quantidades de eleitores computados}
   voto,{voto do usuário}
   opiniao,{opiniâo do usuário}

   {total de votos para cada usuario}
   jose,
   dilma,
   marina,
   {total de votos para as opiniões}
   satisfeitos,
   insatisfeitos,
   regular:inteiro
   {porcentagem das opiniões}
    ps,{porcentagem satisfeitos}
    pr,{porcentagem regular}
    pin,{porcentagem insatisfeitos}

    {porcentagem de votos}
    pj,{porcentagem jose}
    pd,{porcentagem dilma}
    pm {porcentagem marina}:real
inicio
// Seção de Comandos
   eleitores<-0
   voto<-0
   opiniao<-0
   jose<-0
   dilma<-0
   marina<-0
   satisfeitos<-0
   insatisfeitos<-0

   voto<-1
   opiniao<-1
             enquanto (voto for [1..3]) faca
             eleitores<-eleitores+1
             escreva("Eleitor Numero:",eleitores)
             {leitura do voto}
             escreva("----------------------------")
             escreva("Em qual candidato votará para presidente:")
             escreva("1. Jose Serra")
             escreva("2. Dilma Rousseff")
             escreva("3. Marina Silva")
             escreva("Voto:  ")
             voto<-(-1)
             enquanto nao (voto for [0..3]) faca
              leia(voto)
               se voto<>0 então
                inicio
                  {leitura da opinião}
                   escreva("---------------------------")
                   escreva("Qual e a sua opinião sobre os 8 anos do governo Lula")
                   escreva("1. Otimo")
                   escreva("2. Bom")
                   escreva("3. Regular")
                   escreva("4. Ruim")
                   escreva("5. Péssimo")
                   escreva("Opinião: ")
                   escreva("----------------------------")
                   leia(opinião)

                   {apuração do voto do usuario}
                   se voto=1 então jose<-jose+1
                   se voto=2 então dilma<-dilma+1
                   se voto=3 então marina<-marina+1

                   se (opiniao=1) ou (opiniao=2) então
                      satisfeitos<-satisfeitos+1
                   se (opiniao=3) then
                      regular<-regular+1
                   se (opiniao=4) ou (opiniao(=5)
                      insatisfeitos<-insatifeito+1
                   se nao
                    inicio
                        eleitores<-eleitores-1
                        {calculo dos resultados}
                        {votos}
                        pj<-(jose/eleitores)*100
                        pd<-(dilma/eleitores)*100
                        pm<-(marina/eleitores)*100
                        {opinões}
                        ps<-(satisfeitos/eleitores)*100
                        pr<-(regular/eleitores)*100
                        pin<-(insatisfeitos/eleitores)*100

                        {apuração dos vencedores}
                         se (pv>pd) e (pj>pm) então  {Jose Serra}
                           inicio
                              escreva("O vencedor foi Jose Serra com ",pj :0:2,"%")
                               se pd>pm então
                                 inicio
                                    escreva("O segundo colocado foi Dilma Rousse com",pd :0:2, "%")
                                    escreva("O terceiro colocado foi Marina Silva com",pm :0:2, "%")
                                   senao
                                    escreva("O segundo colado foi Marina Silva com",pm :0:2, "%")
                                    escreva("O terceiro colocado foi Dilma Rousseff com ",pd :0:2, "%")
                                  fim-se
                         fim.{Fim Jose Serra}
                       senao
                         se (pd>pj) e (pd>pm) então{Dilma Rousseff}
                           inicio
                            escreva("O Vencedor foi Dilma Rousseff")
                              se pj>pm então
                                inicio
                                  escreva("O segundo colocado foi Jose Serra com",pj:0:2, "%")
                                  escreva("O terceiro colocado foi Marina Silva com",pm:0:2, "%")
                                    senao
                                  escreva("O segundo colocado foi Marina Silva com",pm :0:2, "%")
                                  escreva("O terceiro colocado foi Jose Serra com",pj :0:2, "%" )
                                  fim-se
                         fim.{Fim-se Dilma Rousseff}
                    senao
                         se (pm>pj) e (pm>pd) então {Marina Silva}
                           inicio
                            escreva("O vencedor foi Marina Silva com",pm :0:2, "%")
                             se pd>pj então
                              inicio
                                escreva("O segundo colocado foi Dilma Rousseff com",pd :0:2, "%")
                                escreva("O terceiro colocado doi Jose Serra com",pj :0:2, "%")
                                 senao
                                escreva("O segundo colocado foi Josse Serra com",pj:0:2, "%")
                                escreva("O terceiro colocado foi Dilma Rousseff com",pd:0:2, "%")
                               fim-se{Fim-se Marina Silva}
                              fim;
                              fim ;
{Exibição de Resultados}
 escreva("------------------------")
 escreva("Total de eleitores consultados:",eleitores)
 escreva("------------------------")
 escreva("Porcentagem de eleitores satisfeitos com o governo Lula",ps:5:2, "%")
 escreva("------------------------")
 escreva("Porcentagem de eleitores que responderam regular com o Governo Lula",pr :5:2 ,"%")
 escreva("-------------------------")
 escreva("Porcenatem de eleitores insatisfeito com o governo Lula",pin :5:2 ,"%")

fimalgoritmo
fim.

quando eu aperto F9 ele ja acha um erro na primeira linha..

[pvfinger]

Descobri algumas coisas q estava errando em com a declaração de variaveis ... o codigo esta assim

algoritmo "trabalho"
// Função : definir qual candidato irar vencer uma eleição.
// Autor :    pessoas
// Data : 4/8/2010
// Seção de Declarações 
var
   eleitores:inteiro

   voto:inteiro {voto do usuário}

   opiniao:inteiro {opiniâo do usuário}

   {total de votos para cada usuario}
   jose:inteiro
   dilma:inteiro
   marina:inteiro
   {total de votos para as opiniões}
   satisfeitos:inteiro
   insatisfeitos:inteiro
   regular:inteiro
   {porcentagem das opiniões}
    ps:real {porcentagem satisfeitos}
    pr:real {porcentagem regular}
    pin:real {porcentagem insatisfeitos}

    {porcentagem de votos}
    pj:real {porcentagem jose}
    pd:real {porcentagem dilma}
    pm:real {porcentagem marina}
inicio
// Seção de Comandos
   eleitores<-0
   voto<-0
   opiniao<-0
   jose<-0
   dilma<-0
   marina<-0
   satisfeitos<-0
   insatisfeitos<-0

   voto<-1
   opiniao<-1
             enquanto voto for [1..3] faca
             eleitores<-eleitores+1
             escreval("Eleitor Numero:",eleitores)
             {leitura do voto}
             escreval("----------------------------")
             escreval("Em qual candidato votará para presidente:")
             escreval("1. Jose Serra")
             escreval("2. Dilma Rousseff")
             escreval("3. Marina Silva")
             escreval("Voto:  ")
             voto<-(-1)
             enquanto nao (voto for [0..3]) faca
              leia(voto)
               se voto<>0 então
                inicio
                  {leitura da opinião}
                   escreval("---------------------------")
                   escreval("Qual e a sua opinião sobre os 8 anos do governo Lula")
                   escreval("1. Otimo")
                   escreval("2. Bom")
                   escreval("3. Regular")
                   escreval("4. Ruim")
                   escreval("5. Péssimo")
                   escreval("Opinião: ")
                   escreval("----------------------------")
                   leia(opinião)

                   {apuração do voto do usuario}
                   se voto=1 então jose<-jose+1
                   se voto=2 então dilma<-dilma+1
                   se voto=3 então marina<-marina+1

                   se (opiniao=1) ou (opiniao=2) então
                      satisfeitos<-satisfeitos+1
                   se (opiniao=3) then
                      regular<-regular+1
                   se (opiniao=4) ou (opiniao(=5)
                      insatisfeitos<-insatifeito+1
                   se nao
                    inicio
                        eleitores<-eleitores-1
                        {calculo dos resultados}
                        {votos}
                        pj<-(jose/eleitores)*100
                        pd<-(dilma/eleitores)*100
                        pm<-(marina/eleitores)*100
                        {opinões}
                        ps<-(satisfeitos/eleitores)*100
                        pr<-(regular/eleitores)*100
                        pin<-(insatisfeitos/eleitores)*100

                        {apuração dos vencedores}
                         se (pv>pd) e (pj>pm) então  {Jose Serra}
                           inicio
                              escreval("O vencedor foi Jose Serra com ",pj :0:2,"%")
                               se pd>pm então
                                 inicio
                                    escreval("O segundo colocado foi Dilma Rousse com",pd :0:2, "%")
                                    escreval("O terceiro colocado foi Marina Silva com",pm :0:2, "%")
                                   senao
                                    escreval("O segundo colado foi Marina Silva com",pm :0:2, "%")
                                    escreval("O terceiro colocado foi Dilma Rousseff com ",pd :0:2, "%")
                                  fimse
                         {Fim Jose Serra}
                       senao
                         se (pd>pj) e (pd>pm) então{Dilma Rousseff}
                           inicio
                            escreval("O Vencedor foi Dilma Rousseff")
                              se pj>pm então
                                inicio
                                  escreval("O segundo colocado foi Jose Serra com",pj:0:2, "%")
                                  escreval("O terceiro colocado foi Marina Silva com",pm:0:2, "%")
                                    senao
                                  escreval("O segundo colocado foi Marina Silva com",pm :0:2, "%")
                                  escreval("O terceiro colocado foi Jose Serra com",pj :0:2, "%" )
                                  fimse
                         {Fim-se Dilma Rousseff}
                    senao
                         se (pm>pj) e (pm>pd) então {Marina Silva}
                           inicio
                            escreval("O vencedor foi Marina Silva com",pm :0:2, "%")
                             se pd>pj então
                              inicio
                                escreval("O segundo colocado foi Dilma Rousseff com",pd :0:2, "%")
                                escreval("O terceiro colocado doi Jose Serra com",pj :0:2, "%")
                                 senao
                                escreval("O segundo colocado foi Josse Serra com",pj:0:2, "%")
                                escreval("O terceiro colocado foi Dilma Rousseff com",pd:0:2, "%")
                               fimse{Fim-se Marina Silva}

                              {Exibição de Resultados}
 escreval("------------------------")
 escreval("Total de eleitores consultados:",eleitores)
 escreval("------------------------")
 escreval("Porcentagem de eleitores satisfeitos com o governo Lula",ps:5:2, "%")
 escreval("------------------------")
 escreval("Porcentagem de eleitores que responderam regular com o Governo Lula",pr :5:2 ,"%")
 escreval("-------------------------")
 escreval("Porcenatem de eleitores insatisfeito com o governo Lula",pin :5:2 ,"%")

fimalgoritmo
fim.

[JhOnE RoSsInI]

assim esta correto em formato do visualg olha

algoritmo "trabalho"
// Função : definir qual candidato irar vencer uma eleição.
// Autor :    pessoas
// Data : 4/8/2010
// Seção de Declarações
var
   eleitores:inteiro {quantidades de eleitores computados}
   voto:inteiro {voto do usuário}
   opiniao:inteiro {opiniâo do usuário}

   {total de votos para cada usuario}
   jose:inteiro
   dilma:inteiro
   marina:inteiro
   {total de votos para as opiniões}
   satisfeitos:inteiro
   insatisfeitos:inteiro
   regular:inteiro
   {porcentagem das opiniões}
    ps:real {porcentagem satisfeitos}
    pr:real {porcentagem regular}
    pin:real {porcentagem insatisfeitos}

    {porcentagem de votos}
    pj:real {porcentagem jose}
    pd:real {porcentagem dilma}
    pm:real {porcentagem marina}
inicio
// Seção de Comandos
   eleitores <- 0
   voto <- 0
   opiniao <- 0
   jose <- 0
   dilma <- 0
   marina <- 0
   satisfeitos <- 0
   insatisfeitos <- 0
   voto <- 1
   opiniao <- 1
             enquanto (voto >=1) e (voto <=3)faca

             eleitores <- eleitores+1
             escreva("Eleitor Numero: ",eleitores)
             {leitura do voto}
             escreval("----------------------------")
             escreval("Em qual candidato votará para presidente: ")
             escreval("1. Jose Serra")
             escreval("2. Dilma Rousseff")
             escreval("3. Marina Silva")
             escreva("Voto:  ")
              leia(voto)
              fimenquanto
               se (voto<>0)então
                  //leitura da opinião
                   escreval("---------------------------")
                   escreval("Qual e a sua opinião sobre os 8 anos do governo Lula")
                   escreval("1. Otimo")
                   escreval("2. Bom")
                   escreval("3. Regular")
                   escreval("4. Ruim")
                   escreval("5. Péssimo")
                   escreva("Opinião: ")
                   leia(opiniao)
                   escreva("----------------------------")
               fimse
                   {apuração do voto do usuario}
                   se voto=1 então
                   jose<-jose+1
                   se voto=2 então
                   dilma<-dilma+1
                   se voto=3 então
                   marina<-marina+1
                   fimse
                   fimse
                   fimse
                   se (opiniao=1) ou (opiniao=2) então
                      satisfeitos<-satisfeitos+1
                   se (opiniao=3) então
                      regular<-regular+1
                   se (opiniao=4) ou (opiniao =5) então
                      insatisfeitos <- insatifeito + 1
                   senao
                        eleitores<-eleitores-1
                   fimse
                   fimse
                   fimse
                        {calculo dos resultados}
                        {votos}
                        pj<-(jose/eleitores)*100
                        pd<-(dilma/eleitores)*100
                        pm<-(marina/eleitores)*100
                        {opinões}
                        ps<-(satisfeitos/eleitores)*100
                        pr<-(regular/eleitores)*100
                        pin<-(insatisfeitos/eleitores)*100

                        {apuração dos vencedores}
                         se ((pj>pd) e (pj>pm)) então  //Jose Serra
                              escreva("O vencedor foi Jose Serra com ",pj :0:2,"%")
                               se (pd>pm) então
                                    escreva("O segundo colocado foi Dilma Rousse com",pd :0:2, "%")
                                    escreva("O terceiro colocado foi Marina Silva com",pm :0:2, "%")
                                   senao
                                    escreva("O segundo colado foi Marina Silva com",pm :0:2, "%")
                                    escreva("O terceiro colocado foi Dilma Rousseff com ",pd :0:2, "%")
                               fimse
                         fimse
                         //Fim Jose Serra
                         se ((pd>pj) e (pd>pm)) então //Dilma Rousseff
                            escreva("O Vencedor foi Dilma Rousseff")
                              se (pj>pm) então
                                  escreva("O segundo colocado foi Jose Serra com",pj:0:2, "%")
                                  escreva("O terceiro colocado foi Marina Silva com",pm:0:2, "%")
                                    senao
                                  escreva("O segundo colocado foi Marina Silva com",pm :0:2, "%")
                                  escreva("O terceiro colocado foi Jose Serra com",pj :0:2, "%" )
                              fimse
                         fimse
                         {Fim-se Dilma Rousseff}
                         se ((pm>pj) e (pm>pd)) então //Marina Silva
                             escreva("O vencedor foi Marina Silva com",pm :0:2, "%")
                             se (pd>pj) então
                                escreva("O segundo colocado foi Dilma Rousseff com",pd :0:2, "%")
                                escreva("O terceiro colocado doi Jose Serra com",pj :0:2, "%")
                                 senao
                                escreva("O segundo colocado foi Josse Serra com",pj:0:2, "%")
                                escreva("O terceiro colocado foi Dilma Rousseff com",pd:0:2, "%")
                               fimse //Fim-se Marina Silva
                         fimse
{Exibição de Resultados}
 escreval("------------------------")
 escreval("Total de eleitores consultados:",eleitores)
 escreval("------------------------")
 escreval("Porcentagem de eleitores satisfeitos com o governo Lula:",ps:5:2, "%")
 escreval("------------------------")
 escreval("Porcentagem de eleitores que responderam regular com o Governo Lula:",pr :5:2 ,"%")
 escreval("-------------------------")
 escreval("Porcenatem de eleitores insatisfeito com o governo Lula:",pin :5:2 ,"%")
fimalgoritmo

[pvfinger]

algoritmo "trabalho"
// Função : definir qual candidato irar vencer uma eleição.
// Autor : Pessoas.
// Data : 4/8/2010
// Seção de Declarações
var
   eleitores:inteiro {quantidades de eleitores computados}
   voto:inteiro {voto do usuário}
   opiniao:inteiro {opiniâo do usuário}

   {total de votos para cada usuario}
   jose:inteiro
   dilma:inteiro
   marina:inteiro
   {total de votos para as opiniões}
   satisfeitos:inteiro
   insatisfeitos:inteiro
   regular:inteiro
   {porcentagem das opiniões}
    ps:real {porcentagem satisfeitos}
    pr:real {porcentagem regular}
    pin:real {porcentagem insatisfeitos}

    {porcentagem de votos}
    pj:real {porcentagem jose}
    pd:real {porcentagem dilma}
    pm:real {porcentagem marina}
inicio
// Seção de Comandos
   eleitores <- 0
   voto <- 0
   opiniao <- 0
   jose <- 0
   dilma <- 0
   marina <- 0
   satisfeitos <- 0
   insatisfeitos <- 0
   voto <- 1
   opiniao <- 1
             enquanto (voto >=0) e (voto <=3) faca

             eleitores <- eleitores+1
             escreva("Eleitor Numero: ",eleitores)
             {leitura do voto}
             escreval("----------------------------")
             escreval("Em qual candidato votará para presidente: ")
             escreval("1. Jose Serra")
             escreval("2. Dilma Rousseff")
             escreval("3. Marina Silva")
             escreva("Voto:  ")
              leia(voto)
              fimenquanto
               se (voto<>0)então
                  //leitura da opinião
                   escreval("---------------------------")
                   escreval("Qual e a sua opinião sobre os 8 anos do governo Lula")
                   escreval("1. Otimo")
                   escreval("2. Bom")
                   escreval("3. Regular")
                   escreval("4. Ruim")
                   escreval("5. Péssimo")
                   escreva("Opinião: ")
                   leia(opiniao)
                   escreva("----------------------------")
               fimse
                   {apuração do voto do usuario}
                   se voto=1 então
                   jose <- jose+1
                   se voto=2 então
                   dilma <- dilma+1
                   se voto=3 então
                   marina <- marina+1
                   fimse
                   fimse
                   fimse
                   se (opiniao=1) ou (opiniao=2) então
                      satisfeitos<-satisfeitos+1
                   se (opiniao=3) então
                      regular<-regular+1
                   se (opiniao=4) ou (opiniao =5) então
                      insatisfeitos <- insatifeito + 1
                   senao
                        eleitores<-eleitores-1
                   fimse
                   fimse
                   fimse
                        {calculo dos resultados}
                        {votos}
                        pj<-(jose/eleitores)*100
                        pd<-(dilma/eleitores)*100
                        pm<-(marina/eleitores)*100
                        {opinões}
                        ps<-(satisfeitos/eleitores)*100
                        pr<-(regular/eleitores)*100
                        pin<-(insatisfeitos/eleitores)*100

                        {apuração dos vencedores}
                         se ((pj>pd) e (pj>pm)) então  //Jose Serra
                              escreva("O vencedor foi Jose Serra com ",pj :0:2,"%")
                               se (pd>pm) então
                                    escreva("O segundo colocado foi Dilma Rousse com",pd :0:2, "%")
                                    escreva("O terceiro colocado foi Marina Silva com",pm :0:2, "%")
                                   senao
                                    escreva("O segundo colado foi Marina Silva com",pm :0:2, "%")
                                    escreva("O terceiro colocado foi Dilma Rousseff com ",pd :0:2, "%")
                               fimse
                         fimse
                         //Fim Jose Serra
                         se ((pd>pj) e (pd>pm)) então //Dilma Rousseff
                            escreva("O Vencedor foi Dilma Rousseff")
                              se (pj>pm) então
                                  escreva("O segundo colocado foi Jose Serra com",pj:0:2, "%")
                                  escreva("O terceiro colocado foi Marina Silva com",pm:0:2, "%")
                                    senao
                                  escreva("O segundo colocado foi Marina Silva com",pm :0:2, "%")
                                  escreva("O terceiro colocado foi Jose Serra com",pj :0:2, "%" )
                              fimse
                         fimse
                         {Fim-se Dilma Rousseff}
                         se ((pm>pj) e (pm>pd)) então //Marina Silva
                             escreva("O vencedor foi Marina Silva com",pm :0:2, "%")
                             se (pd>pj) então
                                escreva("O segundo colocado foi Dilma Rousseff com",pd :0:2, "%")
                                escreva("O terceiro colocado doi Jose Serra com",pj :0:2, "%")
                                 senao
                                escreva("O segundo colocado foi Josse Serra com",pj:0:2, "%")
                                escreva("O terceiro colocado foi Dilma Rousseff com",pd:0:2, "%")
                               fimse //Fim-se Marina Silva
                         fimse
{Exibição de Resultados}
 escreval("------------------------")
 escreval("Total de eleitores consultados:",eleitores)
 escreval("------------------------")
 escreval("Porcentagem de eleitores satisfeitos com o governo Lula:",ps:5:2, "%")
 escreval("------------------------")
 escreval("Porcentagem de eleitores que responderam regular com o Governo Lula:",pr :5:2 ,"%")
 escreval("-------------------------")
 escreval("Porcenatem de eleitores insatisfeito com o governo Lula:",pin :5:2 ,"%")
fimalgoritmo
fim.

fiz algumas mudanças e notei que o o programa so pede a opinião do usuario se o numero digitado for mais do que 3... como corrigir esse problema ??

valeu Falou.