Uses
   dxutil_environment;

Var
   Loop:LongWord;
   StartTime:Comp;
   X:Longint;
   Si:SmallInt;
   I:Int64;
   Y:Real;
   //F:Float;
   E:Extended;
   S:Single;
   D:Double;
   C:Comp;
   W:Word;
   Lw:LongWord;
   Qw:QWord;

Begin
   StartTime:=Trunc(TimeCounter);
   For Loop:=1 to 100000000 do Si:=SizeOf(LongWord) div 2;
   System.Writeln('SmallInt: ',Trunc(Trunc(TimeCounter)-StartTime));
   StartTime:=Trunc(TimeCounter);
   For Loop:=1 to 100000000 do X:=SizeOf(LongWord) div 2;
   System.Writeln('LongInt: ',Trunc(Trunc(TimeCounter)-StartTime));
   StartTime:=Trunc(TimeCounter);
   For Loop:=1 to 100000000 do I:=SizeOf(LongWord) div 2;
   System.Writeln('Int64: ',Trunc(Trunc(TimeCounter)-StartTime));
   StartTime:=Trunc(TimeCounter);
   For Loop:=1 to 100000000 do W:=SizeOf(LongWord) div 2;
   System.Writeln('Word: ',Trunc(Trunc(TimeCounter)-StartTime));
   StartTime:=Trunc(TimeCounter);
   For Loop:=1 to 100000000 do Lw:=SizeOf(LongWord) div 2;
   System.Writeln('LongWord: ',Trunc(Trunc(TimeCounter)-StartTime));
   StartTime:=Trunc(TimeCounter);
   For Loop:=1 to 100000000 do Qw:=SizeOf(LongWord) div 2;
   System.Writeln('QuadWord: ',Trunc(Trunc(TimeCounter)-StartTime));
   StartTime:=Trunc(TimeCounter);
   For Loop:=1 to 100000000 do Y:=SizeOf(LongWord) / 2;
   System.Writeln('Real: ',Trunc(Trunc(TimeCounter)-StartTime));
   StartTime:=Trunc(TimeCounter);
   For Loop:=1 to 100000000 do Y:=SizeOf(LongWord) / 2;
   System.Writeln('Extended: ',Trunc(Trunc(TimeCounter)-StartTime));
   StartTime:=Trunc(TimeCounter);
   For Loop:=1 to 100000000 do S:=SizeOf(LongWord) / 2;
   System.Writeln('Single: ',Trunc(Trunc(TimeCounter)-StartTime));
   StartTime:=Trunc(TimeCounter);
   For Loop:=1 to 100000000 do D:=SizeOf(LongWord) / 2;
   System.Writeln('Double: ',Trunc(Trunc(TimeCounter)-StartTime));
   StartTime:=Trunc(TimeCounter);
   For Loop:=1 to 100000000 do C:=SizeOf(LongWord) / 2;
   System.Writeln('Comp: ',Trunc(Trunc(TimeCounter)-StartTime));
end.