3) Faça um programa para apontar os resultados de uma pesquisa eleitoral para Presidente
da república de Kneippópolis, o mais novo país da América do Sul.Os candidatos são: Zico, RicardoKneipp,
Obina e Geninho. Escreva o nome do novo presidente do país com maior IDH do planeta.


Program Pzim ;
var
cont, maior:integer;
voto:char;
perc1, perc2, perc3, perc4:real;
Begin
for cont:=1 to 3 do
begin
writeln('Para zico-z, ricardo-r, obina-o, geninho-g:');
readln(voto);
if (voto=z) then z:=z+1;
perc1:=z/3*100;
if voto = r then r:=r+1;
perc2:=r/3*100;
if voto = o then o:=o+1;
perc3:=o/3*100;
if voto = g then g:=g+1;
perc4:=g/3*100;
end;
begin
if z>maior then maior:=z;
if r>maior then maior:=r;
if o>maior then maior:=o;
if g>maior then maior:=g;
write('O total de votos para zico foi:',z);
write('O percentual foi:',perc1);
write('O total de votos para ricardo foi:',r);
write('O percentual foi:',perc2);
write('O total de votos para obina foi:',o);
write('O percentual foi:',perc3);
write('O total de votos para geninho foi:',z);
write('O percentual foi:',perc4);
writeln(' O nome do mais novo presidente de Kneippópolis é!:',maior);
end;
End.