编程题（玫瑰花数）
program roseNumber;a,b,c,d:longint;function four(n:longint):longint;four:=n*n*n*n;for a:=1 to 9 dofor b:=0 to 9 dofor c:=0 to 9 dofor d:=0 to 9 dobeginif(1000*a+100*b+10*c+d=four(a)+four(b)+four(c)+four(d))thenbeginwriteln(a,b,c,d);endend//java程序for?(int?i?=?1000;?i?
