turbo pascal的一道题：找出100到999之间的整数中所有等于它每位数字立方和的数

var a,b,c:integer;
begin
for a:=1 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
if a*a*a+b*b*b+c*c*c=100*a+10*b+c then writeln(a,b,c);
end。
{结果：
153
370
371
407}