C++ :

#include<iostream>
using namespace std;
int main(){
	int x,y,z;
	int n,m;
	cin>>n>>m;
	for(x=0;x<=m;x++)
	{
		for(y=0;y<=m;y++)
		{
			for(z=0;z<=m;z++)
			{
				if(x+y+z==m&& 15*x+10*y+5*z==n)
				{
					if(x&&y&&z){
						cout<<"mu:"<<x<<" "<<"gong:"<<y<<" "<<"xiao:"<<z<<endl;
					}
				}
			}
		}
	}
	return 0;
}

Pascal :

var a,b,c,d,e:longint;
begin
  readln(a,b);
  for c:=1 to b do
  for d:=1 to b do
  begin
    e:=b-c-d;
    if c*15+d*10+e*5=a then writeln('mu:',c,' gong:',d,' xiao:',e);
  end;
end.