program testcase;
var i,n,sum,d:integer;
begin
for i:=2 to 1000 do
begin
n:=i;
sum:=0;
while n>0 do
begin
d:=n mod 10;
n:=n div 10;
sum:=sum+d*d*d;
end;
if sum=i
then
write(sum,' ');
end;
end .
格式哪里错了!!!

表示编译通过无压力..