4 lines
120 B
ObjectPascal
4 lines
120 B
ObjectPascal
begin
|
|
var arr:=|12,23,34,45,56,67,78,89|;
|
|
arr.Numerate.Nwise(3).where(\(\(a,b),\(c,d),\(e,f)) → a<b).print
|
|
end. |