pascalabcnet/TestSuite/errors/err0429.pas

//!Класс t1 абстрактный и не может иметь атрибут sealed, потому что метод p1 не реализован
unit err0429;
type
  t0 = partial abstract class
    
  end;
  
  t1 = sealed class(t0)
    
  end;
  t0 = partial abstract class
    procedure p1; abstract;
  end;
  
begin
  new t1;
end.