Uses
   dxutil_environment;

function A1():Boolean;
begin
   A1:=True;
end;

function B(Var A:Integer):Boolean;
begin
   B:=True;
end;

function C(Const A:Integer):Boolean;
begin
   C:=True;
end;

function D(A:Integer):Boolean;
begin
   D:=True;
end;

function E(var A):Boolean;
begin
   E:=True;
End;

procedure procA1();
Var
   A1:Boolean;

begin
   A1:=True;
end;

procedure procB(Var A:Integer);
Var
   A1:Boolean;

begin
   A1:=True;
end;

procedure procC(Const A:Integer);
Var
   A1:Boolean;

begin
   A1:=True;
end;

procedure procD(A:Integer);
Var
   A1:Boolean;

begin
   A1:=True;
end;

procedure procE(var A);
Var
   A1:Boolean;

begin
   A1:=True;
End;

Var
   Loop:Longint;
   StartTime:Comp;
   I:Integer;

Begin
   StartTime:=Trunc(TimeCounter);
   For Loop:=1 to 100000000 do A1();
   System.Write('A1: ',Trunc(Trunc(TimeCounter)-StartTime));
   StartTime:=Trunc(TimeCounter);
   For Loop:=1 to 100000000 do procA1();
   System.Writeln(' procA1: ',Trunc(Trunc(TimeCounter)-StartTime));

   StartTime:=Trunc(TimeCounter);
   For Loop:=1 to 100000000 do B(I);
   System.Write('B: ',Trunc(Trunc(TimeCounter)-StartTime));
   StartTime:=Trunc(TimeCounter);
   For Loop:=1 to 100000000 do procB(I);
   System.Writeln(' procB: ',Trunc(Trunc(TimeCounter)-StartTime));

   StartTime:=Trunc(TimeCounter);
   For Loop:=1 to 100000000 do C(I);
   System.Write('C: ',Trunc(Trunc(TimeCounter)-StartTime));
   StartTime:=Trunc(TimeCounter);
   For Loop:=1 to 100000000 do procC(I);
   System.Writeln(' procC: ',Trunc(Trunc(TimeCounter)-StartTime));

   StartTime:=Trunc(TimeCounter);
   For Loop:=1 to 100000000 do D(I);
   System.Write('D: ',Trunc(Trunc(TimeCounter)-StartTime));
   StartTime:=Trunc(TimeCounter);
   For Loop:=1 to 100000000 do procD(I);
   System.Writeln(' procD: ',Trunc(Trunc(TimeCounter)-StartTime));

   StartTime:=Trunc(TimeCounter);
   For Loop:=1 to 100000000 do E(I);
   System.Write('E: ',Trunc(Trunc(TimeCounter)-StartTime));
   StartTime:=Trunc(TimeCounter);
   For Loop:=1 to 100000000 do procE(I);
   System.Writeln(' procE: ',Trunc(Trunc(TimeCounter)-StartTime));
end.