bielmaster48

Trabalho sobre eleiçoes dando erro no end; http://pastebin.com/5NTks8nc 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.