13 lines
126 B
ObjectPascal
13 lines
126 B
ObjectPascal
|
type
|
||
|
|
t1=class
|
||
|
|
|
||
|
|
i:integer;
|
||
|
|
|
||
|
|
procedure p1;
|
||
|
|
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure t1.p1 := writeln(i{@var t1.i: integer;@});
|
||
|
|
|
||
|
|
begin
|
||
|
|
end.
|