program Project4;

{$APPTYPE CONSOLE}

{$R *.res}

uses

  System.SysUtils,System.Diagnostics;

  var

  I, Tot: Integer;

  SW: TStopwatch;//秒表，计算耗用时间

begin

  try

  Tot := 0;

  SW := TStopwatch.Create;

  SW.Start;

  for I := 1 to 1000 do

  begin

   Inc(Tot);

   Writeln(tot);

  end;

  SW.Stop;

Writeln(Format('Sequential For loop. Time (in milliseconds): %d - Primes found: %d',[SW.ElapsedMilliseconds, Tot]));

readln;

    { TODO -oUser -cConsole Main : Insert code here }

  except

    on E: Exception do

      Writeln(E.ClassName, ': ', E.Message);

  end;

end.