7 lines
75 B
ObjectPascal
7 lines
75 B
ObjectPascal
var o:object;
|
|
|
|
begin
|
|
o := new object;
|
|
lock o do
|
|
writeln('xx');
|
|
end. |