fork download
  1. function sum(x, y: integer): integer;
  2. begin
  3. sum := x + y
  4. end;
  5.  
  6. const
  7. f: function(x, y: integer): integer = @sum;
  8.  
  9. begin
  10. writeln(f(2, 3))
  11. end.
Success #stdin #stdout 0s 232KB
stdin
Standard input is empty
stdout
5