unit tunit5;

  interface

    uses
       tunit4;

    type
       pr = ^tr;

  implementation

end.