III Parcial (Injusticia)

program logicander;


Uses WinCrt;
Var
  opc, i, nt : integer;
  suma, prom : real;
Begin


WriteLn ( 'Menu del exameeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeen' );
WriteLn ( 'Presione 1 para el Sistema Numerico' );
WriteLn ( 'Presione 2 para el Calculo de Notas' );
ReadLn (opc);


if opc=1 then
Begin
     Clrscr;
     WriteLn ( 'Lista ordenada de 7 a 7 hasta 100 (sin numeros pares)' );


     for i:= 7 to 100 do


     if ((i mod 7)=0) and (i<>9) and (i<>11) and (i<>13) and (i<>14) and (i<>28) and (i<>42) and (i<>56) and (i<>70)
     and (i<>84) and (i<>98) then




     WriteLn (i);




     end;


if opc=2 then
Begin
     Clrscr;
     WriteLn ( 'Calculo de Notas (Sumatoria de Promedio)' );


     WriteLn ( '¿Cuantas notas son?' );
     Readln (nt);


     for i:= 1 to 4 do


     begin
     WriteLn ( 'Ingrese las notas' );
     ReadLn (nt);


     suma:= suma+nt;
     prom:= suma/4;


     end;


     WriteLn ( 'La suma de las notas es: ', suma:5:3);


     WriteLn ( 'El promedio es: ', prom:3:2);


     if prom<10 then
     writeln ( 'reprobado' )
     else
     if prom>10 then
     Writeln ( 'aprobado' )


     end;


end.