7 lines
143 B
ObjectPascal
7 lines
143 B
ObjectPascal
|
begin
|
||
|
|
var x: integer := 5;
|
||
|
|
var a: array of integer := (x,x,x);
|
||
|
|
var f: IntFunc := y->y+a[0]+x;
|
||
|
|
writeln(f(1));
|
||
|
|
writeln(a[2]);
|
||
|
|
end.
|