Algoritmo para contagem de votos eleição presidencial

Em uma eleição presidencial, existem quatro candidatos. Os votos são informados através de código. Os códigos utilizados são: 1,2,3,4 votos para os candidatos; 5 voto nulo e 6 voto em branco

Elabore um algoritmo que calcule e escreva:

Total de votos para cada candidato;
Total de votos nulos;
Total de votos brancos;
Percentual dos votos brancos e nulos sobre o total.

Como finalizador do conjunto de votos tem-se o valor 0 (zero).

Pseudocódigo:

programa exercicio7
var
   inteiro: cand1, cand2, cand3, cand4, branco, nulo, total, voto;
   percentual: real;
inicio
 cand1 ← 0;
 cand2 ← 0;
 cand3 ← 0;
 cand4 ← 0;
 nulo ← 0;
 branco ← 0;
escreva "Deseja votar? Sim = 1 / Nao = 0";
leia (voto);
	enquanto (voto <> 0) faça
		escreva ("Candidatos: 1, 2, 3 e 4");
		escreva ("Voto Nulo: 5");
		escreva ("Voto Branco: 6);
		escreva ("Insira o Voto: ");
		escreva ("====================================");
			escolha (voto)
			 	1: cand1 ← cand1+1;
			 	2: cand2 ← cand2+1;
			 	3: cand3 ← cand3+1;
			 	4: cand4 ← cand4+1;
			 	5: nulo ← nulo+1;
			 	6: branco ← branco+1;
			fim_escolha;
	fim_enquanto;
escreva ("Total Candidato 1 = ", cand1);
escreva ("Total Candidato 2 = ", cand2);
escreva ("Total Candidato 3 = ", cand3);
escreva ("Total Candidato 4 = ", cand4);
escreva ("Total Nulos = ", nulo);
escreva ("Total Brancos = ", branco);
total ← (cand1 + cand2 + cand3 + cand4 + nulo + branco);
escreva ("Total de votos = ", total);
percentual ← ((branco + nulo) / total) * 100);
escreva ("Percentual Brancos e Nulos = ", percentual);
fim.

Pascal:

// Autor: Rafael Oliveira
// Data: 12/05/2010
Program exercicio7;
 uses crt;
 var
  cand1, cand2, cand3, cand4, branco, nulo, total, voto : integer;
  percentual : real;
 Begin
 cand1 := 0;
 cand2 := 0;
 cand3 := 0;
 cand4 := 0;
 nulo := 0;
 branco := 0;
 writeln('Deseja votar? Sim = 1 / Nao = 0');
 readln(voto);
	while (voto <> 0) do
		begin
			writeln('Candidatos: 1, 2, 3 e 4');
			writeln('Voto Nulo: 5');
			writeln('Voto Branco: 6');
			writeln('Insira o Voto: ');
			readln(voto);
			writeln('====================================');
				case (voto) of
					1: cand1:= cand1+1;
					2: cand2:= cand2+1;
					3: cand3:= cand3+1;
					4: cand4:= cand4+1;
					5: nulo:= nulo+1;
					6: branco:= branco+1;
		end;
end;
clrscr;
writeln('Resultado:');
writeln('Total Candidato 1 = ', cand1, ' votos');	
writeln('Total Candidato 2 = ', cand2, ' votos');	
writeln('Total Candidato 3 = ', cand3, ' votos');	
writeln('Total Candidato 4 = ', cand4, ' votos');	
writeln('Total Nulos = ', nulo, ' votos');
writeln('Total Brancos = ', branco, ' votos');	
total:= (cand1 + cand2 + cand3 + cand4 + nulo + branco);
writeln('Total de votos = ', total);
percentual := ((branco + nulo) / total) * 100;
writeln('Percentual brancos e nulos = ', percentual:3:0, '%');
writeln('Pressione para fechar');
readkey;
End.