type A = class
  n: integer;
  constructor (n: integer);
  begin
    Self.n := n
  end;
end;