15 lines
171 B
ObjectPascal
15 lines
171 B
ObjectPascal
program routineParameterDemo(output);
|
|
|
|
procedure foo(function f: Boolean);
|
|
begin
|
|
writeLn(f);
|
|
end;
|
|
|
|
function bar: Boolean;
|
|
begin
|
|
bar := false
|
|
end;
|
|
|
|
begin
|
|
foo(bar);
|
|
end.
|