如果有答案的话就很简单了，但是如果没有答案呢，就要从数学的角度上考虑了吧，RT地做下去如果没有答案会不会出现某种循环呢？

如果有，那么结果如下了（样例2有错）：

var
	xh:array[1..1000000] of integer;
	i,j:longint;
	
function lf(x:integer):integer;
begin
	lf:=((x div 100)*(x div 100)*(x div 100)+(x mod 100 div 10)*(x mod 100 div 10)*(x mod 100 div 10)+(x mod 10)*(x mod 10)*(x mod 10)) mod 1000;
end;
	
begin
	assign(input,'cubsum.in'); reset(input);
	assign(output,'cubsum.out'); rewrte(output);
	
	readln(xh[1]);

	i:=2;
	xh[i]:=lf(xh[1]);
	while true do
	begin
		if xh[i]=xh[i-1] then
		begin
			writeln(xh[i]);
			close(input);
			close(output);
			halt;
		end;
		for j:=1 to i-2 do
			if xh[i]=xh[j] then
			begin
				writeln('error');
				close(input);
				close(output);
				halt;
			end;
		inc(i);
		xh[i]:=lf(xh[i-1]);
	end;
	
end.