Uses
   dxutil_environment;

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

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