13 lines
260 B
ObjectPascal
13 lines
260 B
ObjectPascal
|
begin
|
||
|
|
var a := Seq(1,3,7);
|
||
|
|
var actions := new List<Action<integer>>;
|
||
|
|
var b := 5;
|
||
|
|
for var i := 1 to 2 do
|
||
|
|
begin
|
||
|
|
var q := i;
|
||
|
|
actions.Add(procedure(x)->writeln(x + i + b + q));
|
||
|
|
end;
|
||
|
|
|
||
|
|
for var i := 0 to 1 do
|
||
|
|
actions[i](i);
|
||
|
|
end.
|