Pascal :

var a,b,c,d:integer;begin

for a:=100 to 999 do

begin b:=a mod 10; c:=a mod 100 div 10; d:=a div 100;

if b*b*b+c*c*c+d*d*d=a then

writeln(a);

end;

end.

Java :

 public class Main{
	   public static void main (String[]args){
	     int i;
	     int a,b,c;
	     for(i=100;i<1000;i++){
	       a=i/100;
	       b=(i%100)/10;
	       c=i%10;
	       if (i==(a*a*a+b*b*b+c*c*c))
		         System.out.println(i);
	       }
	   } 
 }