type TFnType = function(x : Float) : Float;

function First(f : TFnType) : Float;
begin
   Result := f(1) + 2;
end;

function Second(f : Float) : Float;
begin
   Result := f/2;
end;

PrintLn(First(Second));