JDJUNIOR

var

opcao:char;

cont_1,cont_2,cont_3;integer;

nulo:integer;

total:integer;

begin

writeln ('PARA VOTAR EM JOHNATAN DIGITE 1');

writeln ('PARA VOTAR EM ANDRESSA DIGITE 2');

writeln ('PARA VOTAR EM RONALDO DIGITE 3');

writeln ('................................................');



writeln ('DIGITE SUA OPÇÃO:');

readln(op);



if (op='1')then    //não sei se existe estas aspas <img src='http://forum.wmonline.com.br/public/style_emoticons/<#EMO_DIR#>/smile.gif' class='bbc_emoticon' alt=':)' />

cont_1:=cont_1+1;

else if(op='2')then   //não sei se existe estas aspas <img src='http://forum.wmonline.com.br/public/style_emoticons/<#EMO_DIR#>/smile.gif' class='bbc_emoticon' alt=':)' />

cont_2:=cont_2+1

else if(op='3')then     //não sei se existe estas aspas <img src='http://forum.wmonline.com.br/public/style_emoticons/<#EMO_DIR#>/smile.gif' class='bbc_emoticon' alt=':)' />

cont_3:=cont_3+1   

else

nulo:=nulo+1;



begin

total:=cont_1+cont_2+cont_3;



writeln('JOHNATAN TEVE:',cont_1);

writeln('ANDRESSA TEVE:',cont_2);

writeln('RONALDO TEVE:',cont_3);

writeln('VOTOS NULOS:',nulo);

writeln('TOTAL DE VOTOS COMPUTADOS:'total);