type
  t1=class
  
  i:integer;
  
  procedure p1;
  
  end;

procedure t1.p1 := writeln(i{@var t1.i: integer;@});

begin
end.