C++ :

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

Pascal :

program p2681(input,output);
var
  i,n,a,b,c,s:longint;
begin
  for i:=100 to 999 do
    begin
      a:=i;
      s:=0;
      while a<>0 do
        begin
          c:=a mod 10;
          s:=s+c*c*c;
          a:=a div 10;
        end;
      if (s=i) then
        write(i,' ');
    end;
end.