Procedure Parameters

program param (input,output);

procedure b( function h(n:integer): integer);

begin

writeln (h(2))

end;

procedure c;

var m: integer;

function f(n: integer): integer;

begin

f := m + n

end;

begin

m :=0; b(f)

end;

begin

c

end.

Consider the following program to illustrate the fact that an access link must be passed with the actual parameter f. The details are explained in the next slide.