Имеется 2*n чисел, про которые известно, что среди них ровно m пар таких, что произведение одного числа на другое в каждой из пар равно одному и тому же числу. найти и напечатать все эти пары. придумать тесты для этой в формате: n m 2 * n любых чисел ответ (какие пары должны быть напечатаны) желательно не менее 3 тестов. саму программу писать не надо.

Если я тебя правильно понял ... 
N - 100
Пары:
1*1000, 2*500, 4*250, 5*200, 8*128, 10*100, 20*50, 25*40, 40*25, 50*2, 100*10, 125*8, 200*5, 250*4, 500*2, 1000*1
M=16

N-81
1*162, 2*81, 3*54, 6*27, 9*18, 18*9, 27*6, 54*3, 81*2, 162*1
M-1

N-457
1*914, 2*457, 457*2, 914*1
M-4

//1a

Var
 i,x1,x2:integer;
begin
 for i:=10 to 99 do
  begin
   x1:=i mod 10;
 x2:=i div 10;
   if (sqr(x1)+sqr(x2)) mod 13=0 then writeln(i);
  end;
end.

//1б
Var
 i,x1,x2:integer;
begin
 for i:=10 to 99 do
  begin
   x1:=i mod 10;
   x2:=i div 10;
   if x1+x2+sqr(x1+x2)=i then writeln(i);
  end;
end.

//2
Var
 i,n,a,k1,k2:integer;
begin
 readln(n);
 for i:=1 to n do
  begin
   readln(a);
   if a<1985 then k1:=k1+1;
   if a>1990 then k2:=k2+1;
  end;
 writeln('Родившиеся до 1985:',k1);
 writeln('Родившиеся после 1990:',k2);
end.

//1a

Var
 i,x1,x2:integer;
begin
 for i:=10 to 99 do
  begin
   x1:=i mod 10;
 x2:=i div 10;
   if (sqr(x1)+sqr(x2)) mod 13=0 then writeln(i);
  end;
end.

//1б
Var
 i,x1,x2:integer;
begin
 for i:=10 to 99 do
  begin
   x1:=i mod 10;
   x2:=i div 10;
   if x1+x2+sqr(x1+x2)=i then writeln(i);
  end;
end.

//2
Var
 i,n,a,k1,k2:integer;
begin
 readln(n);
 for i:=1 to n do
  begin
   readln(a);
   if a<1985 then k1:=k1+1;
   if a>1990 then k2:=k2+1;
  end;
 writeln('Родившиеся до 1985:',k1);
 writeln('Родившиеся после 1990:',k2);
end.