#pas
function Floor(const X: Extended): Integer;
begin
  Result := Integer(Trunc(X)); // две внешние функции
  if Frac(X) < 0 then          // ещё две
    Dec(Result);               // и ещё одна
                               // итого 5 раз прыгаем с места на место    
end;