C++ :

#include<iostream>
using namespace std;
int main(){
	int a,b,c,d;
	for(int i=100;i<=999;i++){
		a=i/100;
		b=i/10-a*10;
		c=i%10;
		if(i==a*a*a+b*b*b+c*c*c){
			cout<<i<<"  ";
		}
	}
	return 0;
}

Pascal :

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