5 lines
213 B
ObjectPascal
5 lines
213 B
ObjectPascal
###
|
|
var a{@var a: sequence of class;@} := (1..18).Sel(i->new class(f := i, g := i.ToS));
|
|
var x{@var x: string;@} := a.First.g;
|
|
var y{@var y: class;@} := a.First;
|
|
writeln(a.First.g{@property class.g: string;@}); |