Измерение времени в Pascal

program Time;

uses

   Windows;

var

   start, finish, res: int64;

begin

   QueryPerformanceFrequency(res); {Вызывается один раз в начале программы}

   QueryPerformanceCounter(start);  

   {Участок кода, у которого будет замеряться время выполнения}

   QueryPerformanceCounter(finish);

   writeln('Затрачено ', (finish - start) / res, ' секунд' );

end.

program Time;

var 

  start, finish: integer;

  i: longint;

  x: double;

begin

  start := Milliseconds;

  // Start of computation (example)

  for i := 1 to 1000000 do

    x := sin(x + i);

  // End of computation

  finish := Milliseconds;

  writeln('Execution time (ms): ', finish - start);

end.