pascal使用int64，最后2个数据点依然超过范围而出错，参考网上资料，可以采用余数定理（a+b）mod p=（a mod p +b）mod p。当fs（分数）>=0时，采用代码：
###code
fs:=(fs+max) mod p;{max为特征值}
当fs<0时，fs采用常规方法，分数加max（特征值），如果大于fs则更新fs，最后对p取模输出。
###code
if fstmp+max>fstmp then fstmp:=fstmp+max;{更新fstmp}
if fstmp>fs then fs:=fstmp;{更新fs}

最后两个点 WA 的多半是溢出，不 mod 只用 int64/long long 是不够存大约 2^(10^6+49) 这么大的数的。