da8b3cc81f
- неожиданно само school.pct - коррекции RobotZadan - RBps1-3 tkUnknown - пока не получается
10 lines
198 B
ObjectPascal
10 lines
198 B
ObjectPascal
begin
|
|
var a := Arr(1, 2, 3);
|
|
|
|
var g: Func<integer, boolean> := x -> x > 2;
|
|
a.Find(g).Println;
|
|
|
|
var g2: Predicate<integer> := x -> x > 2;
|
|
g2(456).Println;
|
|
a.Find(g2).Println;
|
|
end. |