1:
2:
3:
4:
5:
6:
7:

MOV EAX,66666667  EAX=66666667
IMUL ECX  EAX=333333CB, EDX=00000065
SAR EDX,2  EDX=00000019
MOV ECX,EDX  ECX=00000019
ADD EDX,EDI  EDX=00000E59
SHR ECX,1F  ECX=00000000
ADD ECX,EDX  ECX=00000E59                    

1:
2:
3:

var inVar,outVar:Integer;
...
outVar:=Floor(inVar/10);                    

1:
2:
3:
4:

var inVar,outVar:Integer;
...
outVar:=inVar div 10;
if(inVar<0) then Dec(outVar);                    

1:
2:
3:
4:
5:
6:

function Floor(const X: Extended): Integer;
begin
  Result := Integer(Trunc(X));
  if Frac(X) < 0 then
    Dec(Result);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

unit System; { Predefined constants, types, procedures, }
             { and functions (such as True, Integer, or }
             { Writeln) do not have actual declarations.}
             { Instead they are built into the compiler }
             { and are treated as if they were declared }
             { at the beginning of the System unit.     }
{...}
{ Procedures and functions that need compiler magic }
{...}
procedure _TRUNC;