C++ :

#include<iostream>
using namespace std;
int main()
{
	int sum,x;
	for (int i=100; i<1000; i++)
	{
		sum=0;
		for (x=i; x>0; x/=10)
			sum+=(x%10)*(x%10)*(x%10);
		if (sum==i) cout<<i<<endl;
	}
	return 0;
}

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.