Program PruebaRegistro;

Var 

Op,X,Cuatrimestre,Colegiatura,Prom,Descuento,TotalColegiatura:Integer;
Nombre,Carrera:String;

Begin
    	Writeln ('Opcion1= Ir a Registros');
    	Writeln ('Opcion2= Ir a Pagos');
    	Writeln ('Que Opcion Desea?');
    	Readln (Op);
    If (Op=1) Then
  	Begin
  		Writeln ('Cuantos Alumnos Desea Registrar?');
      		Readln (X);
  		For X:=1 To X Do
  		Begin
      			Writeln ('Ingrese El Nombre a Registrar');
      			Writeln ('Ingrese El Nombre De la Carrera');
      			Writeln ('Ingrese El Cuatrimestre');
      				Readln (Nombre);
      				Readln (Carrera);
      				Readln (Cuatrimestre);
      		End;		
        End;
	If (Op=2) Then
  	Begin
		
		Writeln ('Ingrese El Nombre Del Alumno');
		Writeln ('Ingrese Monto De Colegiatura');
		Writeln ('Ingrese el Promedio');
                Readln(Nombre);
                Readln(Colegiatura);
                Readln(Prom);
        	Writeln('El Promedio Es:',Prom);
        If(Prom<6)Then
                Begin
                        Writeln('No Tienes Descuento por Idiota');
                End;
        If(Prom=6)or(Prom=7)Then
                Begin
                	Writeln('Tienes un 5% de Descuento');
                	TotalColegiatura:=5*100/Colegiatura;
			Writeln('El Total De La Colegiatura Es ',TotalColegiatura);
			Readln;
                End;
        If(Prom=8)or(Prom=9)then
                Begin
                        Writeln('Tienes un 10% de Descuento');
                End;
        If(Prom=10)then
                Begin
                        Writeln('Tienes un 20% de Descuento');
                End;
        Readln;
	End;
  Readln;
End.