program test3;
var g1:integer;

procedure one(procedure a);
begin
a;
end;

procedure two(procedure b);
begin
one(b);
end;

procedure three;
begin
g1:=3;
end;

begin
two(three)
end.