11 lines
159 B
ObjectPascal
11 lines
159 B
ObjectPascal
unit construnit1;
|
|
|
|
type
|
|
t1=class
|
|
|
|
class constructor := exit;
|
|
private constructor := exit;
|
|
public constructor(b:byte) := exit;
|
|
end;
|
|
|
|
end. |