program money;
var a,b,c,d:integer;
begin
for a:=1 to 10 do
for b:=1 to 20 do
  for c:=1 to 50 do
   for d:=1 to 100 do
    begin
    if (a*10+b*5+c*2+d*1=100) and (a+b+c+d=40)
    then writeln('10yuan ',a,' 5yuan ',b,' 2yuan ',c,' 1yuan ',d)
    end;
end.
好象有更好的方法的哦[em5]

那好方法是什么呢？