（最大公约数之和）下列程序想要求解整数𝑛的所有约数两两之间

const
  P : longint = 10007;
var
  n, len, ans, i, j : longint;
  a : array[0..110000] of longint;
procedure getDivisor( );
var
  i : longint;
begin
  len := 0;
  i := 1;
  while     1 <= n do
  begin
    if n mod i = 0 then
    begin
      len := len + 1;
      a[len] := i;
      if     2 <> i then
      begin
        len := len + 1;
        a[len] := n div i;
      end;
    end;
    inc(i);
  end;
end;
function gcd(a, b : longint) : longint;
begin
  if b = 0 then
    3;
  exit( gcd(b, 4) );
end;
begin
  read(n);
  getDivisor( );
  ans := 0;
  for i := 1 to len do
    for j := i + 1 to len do
      ans := (5) mod P;
  writeln(ans);
end.