Слишком много способов

program project1;
uses Math;
var
  f1,f2: text;
  xm,ym,zm,xb,yb,zb,x,y,z: Longword;
  function fact(n : integer) : longint;
  var
    i : integer;
    f : longint;
  begin
      f := 1;
      for i := 2 to n do
        f := f * i;
      fact := f;
  end;
function modular_pow(base, exponent, modulus: longint): longint;
var
  e_prime: longint;
begin
  modular_pow := 1;
  for e_prime := 1 to exponent DO
     modular_pow := (modular_pow * base) mod modulus;
end;
begin
  assign (f1, 'input.txt');
  assign (f2, 'output.txt');
  reset (f1);
  read (f1,xm,ym,zm,xb,yb,zb);
  close (f1);
  x := abs(xm-xb);
  y := abs(ym-yb);
  z := abs(zm-zb);

  rewrite (f2);
  write(f2,abs(( fact(x+y+z)div(fact(x)*fact(y)*fact(z)) )) mod 1000000007 );
  close (f2);
end.