Помогите

Нужно объяснить решение программы

Program qq;

var b, c, f:integer;

begin

for var a:=100 to 999 do

Begin

b: = a mod 10;

c: = (a mod 100) div 10;

f:=a div 100;

if a = (c*c*c) + (b*b*b) + (f*f*f) then

writeln (a) ;

end;

end.

Программа перебирает все 3 х значные числа

b - первая цифра числа, т. е. единицы

c - вторая цифра числа, т. е. десятки

f - третья цифра числа, т. е. сотни

таким образом программа выводит все 3 х значные числа, которые равны сумме кубов своих цифр

т. е. такие числа, что f*100+c*10+b=f*f*f+b*b*b+c*c*c