14 lines
162 B
ObjectPascal
14 lines
162 B
ObjectPascal
type A = class
|
|
static function X := 1;
|
|
static procedure p;
|
|
end;
|
|
|
|
static procedure A.p;
|
|
begin
|
|
var s := X;
|
|
ArrGen(10,i->i);
|
|
end;
|
|
|
|
begin
|
|
|
|
end. |