RosettaCodeData/Task/Higher-order-functions/PascalABC.NET/higher-order-functions.pas

##
function first(f: real-> real) := f(1.0) + 2.0;

function second(x: real) := x / 2.0;

println(first(second));