examen rompe coco

program menucito;
uses wincrt;
var
n,suma,no,resultado,i,op,j:integer;
promedio:real;
begin
{Flores Richarth Informatica II matutino v-24197236}
writeln('***  Menu  ***');
writeln('1.- Sistema de numeraciòn');
writeln('2.- Calculo de notas');
readln(op);
if op=1 then
begin
for i:=7 to 100 do
if ((i mod 7)=0)  and (i<>14) and (i<>28) and (i<>42) and (i<>56) and
(i<>70) and (i<>84 ) and (i<>98) or (i=2)    then
writeln(i);
end;
if op=2 then

begin
 writeln('Cuantas Notas Son?');
 readln(n);

  for j:=1 to n do
   begin
  writeln('Introduzca Nota ',j);
  readln(no);
  suma:=suma+no;
  promedio:=suma/n;

  promedio:=(suma*n)/100;

      end ;
   writeln('su promedio es  ', promedio:2:0);
   if  promedio < 10 then
   writeln('Reprovado')
   else
   if promedio >10 then
write('Aprovado');
      end;
end.