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