RosettaCodeData/Task/Pointers-and-references/Pascal/pointers-and-references-3.pas

program routineParameterDemo(output);

procedure foo(function f: Boolean);
begin
	writeLn(f);
end;

function bar: Boolean;
begin
	bar := false
end;

begin
	foo(bar);
end.