RosettaCodeData/Task/Inheritance-Single/PascalABC.NET/inheritance-single.pas

type
  Animal = class end;
  Dog = class(Animal) end;
  Cat = class(Animal) end;
  Lab = class(Dog) end;
  Collie = class(Dog) end;