Repita for menu

Program Repita_for_parcialIII;
Uses WinCrt;
Var i,n,op:integer;
suma,nota,promedio:real;
Begin


Writeln ('***MENÚ REPITA FOR - PARCIAL III***');
Writeln ('');
Writeln ('***********');
Writeln ('');
Writeln ('***1-Sistema de numeración, múltiplos de 7, sin pares***');
Writeln ('***2-Cálculo de notas***');
Readln (op);
ClrScr;


If op=1 then
Begin
Writeln ('***Sistema de numeración, múltiplos de 7, sin pares***');
Writeln ('');
For i:=1 to 100 do
If ((i mod 7)=0) and ((i mod 2)=1) then
Writeln (i);
End;


If op=2 then
Begin
Writeln ('***Cálculo de notas***');
Writeln ('');
Writeln ('***Ingrese número de notas***');
Readln (n);
ClrScr;
For i:=1 to n do
Begin
Writeln ('***Ingrese nota***');
Readln (nota);
suma:=suma+nota;
End;
Writeln ('***La sumatoria es: ***', suma:5:3);
promedio:=suma/n;
Writeln ('***El promedio es: ***', promedio:5:3);
If promedio<10 then
Writeln ('***Reprobado***')
Else
Writeln ('***Aprobado***')
End;


If (op<>1) and (op<>2) then
Writeln ('***Opción no válida***');
End.