//Autor: Artur Czekalski (Sator)  www.epokaY.net/artur  artur@epokaY.net
program Project1;
{$APPTYPE CONSOLE}
uses SysUtils, windows;
//---------------------------------------------------------------------------
Function NWD(a: Int64; b: Int64): Int64; //Największy Wspólny Dzielnik
var
 temp: Int64;
begin
 If (a=0) and (b=0) Then begin RESULT := 1; exit; end;
 while b<>0 do
  begin temp := b;  b := a mod b;  a := temp;
  end;
 RESULT := a;
end;
//---------------------------------------------------------------------------
Function NWW(a: Int64; b: Int64): Int64; //Najmniejsza Wspólna Wielokrotność
begin
 RESULT := a*b div NWD(a, b);
end;
//---------------------------------------------------------------------------
var
 w, max: Int64;
 czas: Cardinal;
 i: Integer;
begin
 max := 0;

 czas := GetTickCount;
 For i:=1 To 10000000 Do
  begin w := NWW(902337203685-i, i);
   If w > max Then max := w;
  end;
 czas := GetTickCount - czas;

 writeln('max=', max);
 writeln('Delphi 7: Czas=', czas);
 readln;
end.