7 lines
108 B
ObjectPascal
7 lines
108 B
ObjectPascal
procedure Rep(n: integer; p: procedure) := (p * n);
|
|
|
|
procedure p := Print('Hello');
|
|
|
|
begin
|
|
Rep(3,p);
|
|
end.
|