C++ :

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

Pascal :

begin
  writeln('153');
  writeln('370');
  writeln('371');
  writeln('407');
end.