/*
	Ejercicio 4.
 */

program ej4;

/*
	No creo que haga falta adornarlo para que a la salida diga
	"x" menor que "y" menor que "z", y espacios entre los numeros
	tampoco lo veo necesario. m* m-1 * m-2 * m-n+1 7 y 5
*/

procedure comb(x:int,y:int)
{
	writeln(x/y);
}

function ordenar2(ref a: int,ref b: int) :int
{
	if(a > b){
		return a;

	}else{
		return b;

	}

}

procedure main()
	a:int;
	b:int;
	e:int;
	ex:int;
	i:int;
	d:int;
	aux:int;
	m:int;
	n:int;
	x:int;
	y:int;

{
	writeln("Cantidad");
	read(a);
	e = 0;
	while (a > 0){
		writeln("Comb1");
		read(m);
		writeln("Comb2");
		read(n);
		d = m;
		for (i = 0, i < (n-1)){
			m = m*(n - (i-1));

		}
		if (n > 1){				/*NO PUEDE SER 0!*/
		b = n;
			for (i = 1, i < b){
			n = n*i;
			}

		}
	writeeol();
	writeln(m/n);
	x =(m/n);
		if (e > 1){
			writeeol();
			writeln(ordenar2(x,aux));

		}
	e = e +2;
	a = a - 1;
	aux = x;
	}


}