незнаю как назвать, найти количество чисел удалетворящих условию Опции

[compiler]

Найдите все трёхзначные числа, равные сумме кубов своих цифр.
я думаю начинать надо с abc=100a+10b+c

заранее благодарен

Добавлено через 1 мин.
моя программа

var 
	a,b,c,n:integer;
procedure q( var i,n:integer);
	Begin
		while n<>0 do begin
			i:=number mod 10;
			n:=n div 10;
		End; 
	end;
Begin
	for n:=99 to 1000 Do begin 

	
		a:=q(a,n);
		b:=q(b,n);
		c:=q(c,n);
		if (n=a*a*a+b*b*b+c*c*c) then writeln(n);
	end;
	read(a);
end.