unit ub0421a;
interface
{$mode objfpc}

  uses ub0421b;

type
  cl3=class(cl2)
    property f:longint read f1;
  end;

 implementation
 end.