Uses
   dxutil_environment;

const
   LongWordSize = SizeOf(LongWord);
   LongWordSizeX2 = SizeOf(LongWord)*2;

Var
   Loop:LongWord;
   StartTime:Comp;
   X:Longint;

Begin
   StartTime:=Trunc(TimeCounter);
   For Loop:=1 to 100000000 do X:=SizeOf(LongWord);
   System.Writeln(Trunc(Trunc(TimeCounter)-StartTime));
   StartTime:=Trunc(TimeCounter);
   For Loop:=1 to 100000000 do X:=LongWordSize;
   System.Writeln(Trunc(Trunc(TimeCounter)-StartTime));
   StartTime:=Trunc(TimeCounter);
   For Loop:=1 to 100000000 do X:=SizeOf(LongWord)*2;
   System.Writeln(Trunc(Trunc(TimeCounter)-StartTime));
   StartTime:=Trunc(TimeCounter);
   For Loop:=1 to 100000000 do X:=LongWordSizeX2;
   System.Writeln(Trunc(Trunc(TimeCounter)-StartTime));
end.