Pascal :

var a,b,c,d:integer;
begin
 for a:=100 to 999 do
 begin
 b:=a div 100;
 c:=(a-b*100)  div 10;
 d:=a mod 10;
 if b*b*b+c*c*c+d*d*d=a then writeln(a);
 end;
end.