Pascal/Turbo Pascal - Programa de votaciones

PROGRAM Partido;

USES CRT;

VAR

 opcion:CHAR;

 numbol:INTEGER;

PROCEDURE menu;

BEGIN

 WRITELN ('partidos');

 WRITELN ('1)PRI');

 WRITELN ('2)PAN');

 WRITELN ('3)PRD');

 WRITELN ('4)voto nulo');

END;

PROCEDURE PRI;

VAR

 contpri:INTEGER;

BEGIN

 contpri+1

 WRITELN ('ha votado por el PRI');

END;

PROCEDURE PAN;

VAR

 contpan:INTEGER;

BEGIN

 contpan+1

 WRITELN ('ha votado por el PAN');

END;

PROCEDURE PRD;

VAR

 contprd:INTEGER;

BEGIN

 contprd+1

 WRITELN ('ha votado por el PRD');

END;

PROCEDURE nulo;

VAR

 contnulo:INTEGER;

BEGIN

 contnulo+1

 WRITELN ('su voto es nulo');

END;

BEGIN

 CLRSCR;

 WRITELN ('introduzca el número de boletas');

 READLN (numbol);

 CONT:=1

 FOR cont:=1 TO numbol DO

 WRITELN ('seleccione el partido por el que desea votar');

 menu;

 READLN (opcion);

 CASE opcion OF

 '1':contpri+1;

 '2':contpan+1;

 '3':contprd+1;

 '4':contnulo+1;

ELSE

 WRITELN ('opción imposible);

END;

BEGIN

 IF (contpri>contpan) THEN

  IF (contpri>contprd)THEN

  WRITELN ('el partido ganador es el PRI con:', contpri, 'votos' );

 ELSE 

  IF (contpan>contpri) THEN

   IF (contpan>contprd) THEN

   WRITELN ('el partido ganador es el PAN con:', contpan, 'votos');

  ELSE

   IF (contprd>contpri) THEN

    IF (contprd>contpan) THEN

    WRITELN ('el partido ganador es el PRD con:', contprd, 'votos');

   ELSE

     IF (contnulo>contprd) THEN

      IF (contnulo>contpan) THEN

       IF (contnulo>contpri) THEN

        WRITELN ('elecciones nulas con:',contnulos, votos anulados');

      END;

READLN;

END.

[Mira esto creo que te sera de ayuda]

program partidos;

 uses

   crt;

  var

    tecla : char;

    contpri, contpan, contprd, contnulo : longint;

  procedure menu;

  var

    salir : boolean;

  begin

     salir := false;

     Contpri := 0;

     Contpan := 0;

     Contprd := 0;

     Contnulo := 0;

     repeat

         clrscr;

      writeln('  **** Menu General ****');

      writeln;

      writeln('   I = Contpri');

      writeln('   N = Contpan');

      writeln('   D = Contprd');

      writeln('   O = Contnulo');

      writeln('   S = Salir');

      writeln;

      writeln('   Elija Opcion De Partido');

      repeat

          tecla := upcase(readkey);

      until tecla in['I','N','D','O','S'];

      clrscr;

   case tecla of

 'I' : begin

       writeln('   Dio su Boto a Contpri');

       Contpri := Contpri + 1;

       delay(1000);

       end;

 'N' : begin

       writeln('   Dio su Boto a Contpan');

       Contpan := Contpan + 1;

       delay(1000);

       end;

 'D' : begin

       writeln('   Dio su Boto a Contprd');

       Contprd := Contprd + 1;

       delay(1000);

       end;

 'O' : begin

       writeln('   Dio su Boto a Contnulo');

       Contnulo := Contnulo + 1;

       delay(1000);

       end;

 'S' : salir := true;

   end;

   until salir = true;

  end;

  begin

      menu;

      writeln('   Los Resultados Serian');

      writeln;

      writeln('   Contpri = ',Contpri);

      writeln('   Contpan = ',Contpan);

      writeln('   Contprd = ',Contprd);

      writeln('  Contnulo = ',Contnulo);

      writeln;

      writeln('    Pulse Una Tecla');

      readkey;

  end.