Pascal :

program p21122;
var i,a,b,c:integer;
begin
  for i:=100 to 999 do
    begin
    a:=i div 100;
    b:=i div 10 mod 10;
    c:=i mod 10;
    if a*a*a+b*b*b+c*c*c=i then write(i,' ');
    end;
end.