Pascal :

var a,b,c,i,j,d,e:longint;
   begin
   for i:=10000 to 99999 do
    begin
     a:=i mod 10;
     b:=i div 10 mod 10;
     c:=i div 100 mod 10;
     d:=i div 1000 mod 10;
     e:=i div 10000;
     if a*a*a*a*a+b*b*b*b*b+c*c*c*c*c+d*d*d*d*d+e*e*e*e*e=i
     then write(i,' ')
    end;
  end.