01 algoritmo "Eleição"
02 var
03 {declaração das variáveis}
04 candidato1, candidato2, candidato3, candidato4: real
05 nulo, branco, total:real
06 op: caractere
07 {inicialização do algoritmo}
08 inicio
09 {enquanto o usuário não digitar 0 o laço irá se repetir}
10 enquanto  op<>"0" faca
11    {comando que escreve o texto na tela pulando sempre uma linha}
12    escreval("Digite uma das opções ou 0 para sair:")
13    escreval("1 - Canditado1")
14    escreval("2 - Canditado2")
15    escreval("3 - Canditado3")
16    escreval("4 - Canditado4")
17    escreval("5 - Voto Nulo")
18    escreval("6 - Voto em Branco")
19    {espera que o usuário digite algo para que seja armazenado na variável op}
20    leia(op)
21    {comando que limpa a tela}
22    limpatela
23    {inicializa escoha}
24    escolha op
25       {caso o usuário digitou 1, faça}
26       caso "1"
27 	     {soma 1 voto ao candidato1}
28          candidato1<-candidato1+1
29 	  {A mesma lógica ocorre com os demais}
30       caso "2"
31          candidato2<-candidato2+1
32       caso "3"
33          candidato3<-candidato3+1
34       caso "4"
35          candidato4<-candidato4+1
36       caso "5"
37          nulo<-nulo+1
38       caso "6"
39          branco<-branco+1
40 	  {Caso a opção seja zero, que é a condição para sair do laço;}
41 	  {simplesmente não faz nada}	
42       caso "0"
43 	     {não escreve nada já que não há nada digitado entre parênteses}
44          escreva("")
45 	  {Caso não seja nem uma das opções disponíveis, faça}
46       outrocaso
47 	     {escreve na tela avisando ao usuário}
48          escreval ("Digite uma opção válida!")
49    fimescolha
50 {fim do laço enquanto}
51 fimenquanto
52 {soma todos os valores e atribui o resultado a variável total}
53 total<-candidato1+candidato2+candidato3+candidato4+nulo+branco
54 {Depois pega cada variável e divide por total e depois multiplica}
55 {por 100 para obter a porcentagem}
56 candidato1<-(candidato1/total)*100
57 candidato2<-(candidato2/total)*100
58 candidato3<-(candidato3/total)*100
59 candidato4<-(candidato4/total)*100
60 nulo<-(nulo/total)*100
61 branco<-(branco/total)*100
62 {não escreve nada já que não há nada digitado entre parênteses;}
63 {entretando pula linha já que o comando é escreval e não escreva}
64 escreval("")
65 {Exibe o resultado}
66 escreval("A totalização dos votos ficou:")
67 escreval("Candidato 1 recebeu ",candidato1,"% de votos.")
68 escreval("Candidato 2 recebeu ",candidato2,"% de votos.")
69 escreval("Candidato 3 recebeu ",candidato3,"% de votos.")
70 escreval("Candidato 4 recebeu ",candidato4,"% de votos.")
71 escreval("Votos brancos: ",branco,"%.")
72 escreval("Votos nulos: ",nulo,"%.")
73 fimalgoritmo