Uses
   dxutil_environment;

Var
   Loop:LongWord;
   StartTime:Comp;
   X,Y:Integer;

Begin
   X:=3;
   Y:=0;
   StartTime:=Trunc(TimeCounter);
   For Loop:=1 to 100000000 do begin
      If X=1 then begin
         Y:=X;
      end
      else if X=3 then begin
         Y:=X+3;
      end;
   end;
   System.Writeln(Trunc(Trunc(TimeCounter)-StartTime));

   X:=3;
   Y:=0;
   StartTime:=Trunc(TimeCounter);
   For Loop:=1 to 100000000 do begin
      Case X of
         1:Begin
            Y:=X;
         End;
         3:Begin
            Y:=X+3;
         End;
      End;
   end;
   System.Writeln(Trunc(Trunc(TimeCounter)-StartTime));

end.