12 lines
154 B
ObjectPascal
12 lines
154 B
ObjectPascal
function foo(n: real): real -> real :=
|
|
i -> begin
|
|
n += i;
|
|
Result := n;
|
|
end;
|
|
|
|
begin
|
|
var x := foo(1);
|
|
x(5);
|
|
foo(3);
|
|
print(x(2.3));
|
|
end.
|