12 lines
100 B
ObjectPascal
12 lines
100 B
ObjectPascal
procedure p0<T>(p: T->());
|
|
begin
|
|
end;
|
|
|
|
procedure p1<T>(o: T);
|
|
begin
|
|
|
|
end;
|
|
|
|
begin
|
|
p0(p1);
|
|
end. |