procedure Rep(n: integer; p: procedure) := (p * n);
procedure p := Print('Hello');
begin
Rep(3,p);
end.