VBScript (usando bucles anidados y sentencias de juicio)

para x=0 a 100

para y=0 a 100

si x*4+y*1=100 entonces salga para

Siguiente

Siguiente

si x<>100 e y<>100 entonces

Response.Write("Big Monk"&x&",small Monk "&y&"一")

else

Response.Write("Sin solución")

finalizar si