program ELEICAO;
uses crt;
var
nulo,CandA,CandB,CandC,CandD,CandE,CandF,CandG,voto,branco,total,pv : Integer;
begin
	nulo:= 0;
	CandA:= 0;
	CandB:= 0;
	CandC:= 0;
	CandD:= 0;
	CandE:= 0;
	CandF:= 0;
	CandG:= 0;
	branco:= 0;
	CLRSCR;

  while voto <>0 do
	 begin
	writeln('ELEICAO 2016');
  writeln('---------------------------------------');
  writeln ('15 - Cícero Almeida (PMDB)');
  writeln ('33 - Fernando do Village (PMN)');
  writeln ('50 - Gustavo Pessoa (PSOL) ');
  writeln ('40 - JHC (PSB) ');
  writeln ('13 - Paulão (PT)');
  writeln ('36 - Paulo Memória (PTC)');
  writeln ('45 - Rui Palmeira (PSDB)');
  writeln ('1 – Nulo  ');
  writeln ('2 – Branco ');
  writeln ('0 –  Encerra a votação Candidato');

  writeln('---------------------------------------');
  writeln;
  writeln('Insira o Voto: ');
	readln(voto);
	writeln('====================================');
  case (voto) of
	15: CandA:= CandA+1;
  33: CandB:= CandB+1;
	50: CandC:= CandC+1;
	40: CandD:= CandD+1;
	13: CandE:= CandE+1;
	36: CandF:= CandF+1;
	45: CandG:= CandG+1;
	 1: nulo := nulo+1;
	 2:branco:=branco+1;

end;
begin
  CLRSCR;
  writeln('Clasificação dos Candidatos:');
  writeln;
  total:= (CandA+CandB+CandC+CandD+CandE+CandF+CandG);
  pv:= (CandA+CandB+CandC+CandD+CandE+CandF+CandG+nulo+branco);
	writeln('Total de votos válidos:',total);
	writeln('Total de pessoas votantes:',pv);
	writeln('Total de votos do Cícero Almeida (PMDB): ',CandA);
  writeln('Total de votos do  Fernando do Village (PMN) ',CandB);
  writeln('Total de votos do  Gustavo Pessoa (PSOL) ',CandC);
  writeln('Total de votos do  JHC (PSB): ',CandD);
  writeln('Total de votos do  Paulão (PT): ',CandE);
  writeln('Total de votos do Paulo Memoria (PTC): ',CandF);
  writeln('Total de votos do  Rui Palmeira (PSDB):',CandG);
  writeln('Votos nulos ',nulo);
  writeln('Votos brancos',branco);
  if (CandA+CandB+CandC+CandD+CandE+CandF+CandG+nulo+branco)=0 then
  begin
  writeln(' Não houve nenhum votante. Eleições Canceladas. ')
  end;
  if (CandA+CandB+CandC+CandD+CandE+CandF+CandG)=0 then
  begin
	writeln('Novas eleições serão convocadas - eleição inválida')
	end;
	readkey;
end;
begin
  CLRSCR;
  if (CandA > CandB) and (CandA > CandC) and (CandA > CandD) and (CandA > CandE) and (CandA > CandF) and (CandA > CandG) then
  Writeln('O Vencedor é o Candidato Cícero Almeida,com ',CandA, ' Votos.')
  else
  if (CandB > CandC) and (CandB > CandD) and (CandB > CandE) and (CandB > CandA) and (CandB > CandF) and (CandB > CandG) then
  Writeln('O Vencedor é o Candidato Fernando do Village, com ',CandB, ' Votos.')
  else
  if (CandC > CandD) and (CandC > CandE) and (CandC > CandA) and (CandC > CandB) and (CandC > CandF) and (CandC > CandG) then
  Writeln('O Vencedor é o Candidato Gustavo Pessoa, com ',CandC, ' Votos.')
  else
  if (CandD > CandE) and (CandD > CandA) and (CandD > CandB) and (CandD > CandC) and (CandD > CandF) and (CandD > CandG) then
  Writeln('O Vencedor é o Candidato JHC, com ',CandD, ' Votos.')
  else
  if (CandE > CandA) and (CandE > CandB) and (CandE > CandC) and (CandE > CandD) and (CandE > CandF) and (CandE > CandG) then
  Writeln('O Vencedor é o Candidato Paulão, com ',CandE, ' Votos.')
  else
	if (CandF > CandA) and (CandF > CandB) and (CandF > CandC) and  (CandF > CandD) and (CandF > CandE) and (CandF > CandG) then
	Writeln('O Vencedor é o Candidato Paulo Memoria , com ',CandF, ' Votos.')
	else
	if (CandG > CandA) and (CandG > CandB) and (CandG > CandC) and  (CandG > CandD) and (CandG > CandE) and (CandG > CandF) then
	Writeln('O Vencedor é o Candidato  Rui Palmeira , com ',CandG, ' Votos.')
	else
  Writeln('..:: EMPATE ::..');
  writeln('Havera segundo turno');
	readkey;
end;
end.