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.
|