Linux - pascal

Pascal
Free Pascal Compiler version 2.4.0-2 [2010/02/20] for i386

uses
    BaseUnix, Unix;
var
t:longint;

function GetTickCount: Cardinal; stdcall;
var
  t: timeval;
begin
  fpgettimeofday(@t, nil);
  GetTickCount := t.tv_sec * 1000 + t.tv_usec div 1000;
end;

PROCEDURE test;
var
    x,i,s,e:longint;
    max:longint=100000000;
begin
    s := GetTickCount;
    for i:=0 to max do
    begin
    x := i div 10;
    end;
    e := GetTickCount;
    Writeln (e-s);
end;


begin
    for t:=1 to 5 do
    begin
    test;
    end;
end.

Запуск:
> fpc testpascal.p
> ./testpascal

Результаты:
323
316
315
314
314