Nejedná se o kód programu, ale výsledky jsou stejné.

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils, Windows, Math;

var
  prvniCas, druhyCas: Cardinal;
  i: Extended;
begin
  prvniCas := GetTickCount;
  i := Power(10, 9);
  while (i>0) do
    begin
      i := i-1;
    end;
  druhyCas := GetTickCount;
  writeln(inttostr(druhyCas-prvniCas)); 
end.