procedure p(f: Func<string,string>);
begin

end;

procedure p(f: Func<integer,integer>);
begin

end;

begin
   p(x->x*x);
end.