type
  t1 = class 
    a: record i: integer; end ;   
class function Get5 := 5;
public class function Get6:=6;
  end;

begin
end.