14 lines
267 B
ObjectPascal
14 lines
267 B
ObjectPascal
type t1 = class
|
|
function test: sequence of integer;
|
|
begin
|
|
Result := true?
|
|
Seq(0).Where(m->begin
|
|
var temp:byte;
|
|
writeln(temp{@var temp: byte;@});
|
|
Result := true;
|
|
end):
|
|
Seq(0);
|
|
end;
|
|
end;
|
|
|
|
begin end. |