1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

  ZeroMemory(@Prims,sizeof(Prims));
  specialPrims:=1;

  for i := 0 to 7 do
    begin
      ZeroMemory(@tmpPrim,sizeOf(tmpPrim));
      rest:=collisions[i];
      divisor:=1;
      PrimFound:=false;

      repeat
        inc(divisor);
        if divisor>125000 then                // Prims > 125000 :(
          begin
            specialprims:=specialprims * rest;
            PrimFound:=true;
          end;

        if rest mod divisor = 0 then // Teiler?
          begin
            inc(tmpPrim[divisor]);
            rest:=rest div divisor;
            divisor:=1;
          end;
      until (rest=0) or PrimFound;

      for j := 0 to 125000 do
        if Prims[j]<tmpPrim[j] then
          Prims[j]:=tmpPrim[j];
    end;


  // Extrem Multiplying
  tGes:=1*specialPrims;
  for i := 0 to 125000 do
    if Prims[i]<>0 then
      tGes:=tGes * Prims[i];                    

1:
2:
3:
4:

Eigabe A,B Ausgabe k
1. C:=GGT(A,B) //mit Euklidischem Algo
2. k=(A/C)*B
Fertig                    

1:
2:
3:

  tGes:=1*specialPrims;
  for i := 0 to 125000 do
    tGes:=tGes * power(i,Prims[i]);