某次知识竞赛共有25题，评分标准如下：答对一题得8分，答错1题倒扣5分，不答题不得分也不扣分。小明答题得

program a； var m，n，i，j：integer； begin readln（m，n）； for i：=0 to m do for j：=0 to m-i do if（n=8*i-5*j）then writeln（i ，j ，m-i-j）； end.