Begin
  for a:=1 to 9 
    for b:=1 to 19 do
      for c:=1 to 49 do
        for d:=1 to 98 do
          if (a+b+c+d=40)and(a*10+b*5+c*2+d=100)then writeln(a,b,c,d);
End.

为什么是TO 9 19 49 98?