program test3(output);
var g1:integer;

procedure one(procedure a);
begin
writeln('proc one');
a;
end;

procedure two(procedure b);
begin
writeln('proc two');
one(b);
end;

procedure three;
begin
writeln('proc three');
g1:=3;
end;

begin
two(three)
end.