Среди всех трезначных чисел найти числа для которых верно утверждение :сумма кубов цифр этого числа равна самому числу.

var

i, a, b, c: integer;

begin writeln ( \'Трехзначные числа, для которых верно утверждение: \"Сумма кубов цифр этого числа равна самому числу\":\' );for i := 100 to 999 do begin a := i div 100; b := ( i mod 100 ) div 10; c := i mod 10; if i = ( a * a * a ) + ( b * b * b ) + ( c * c * c ) then writeln( i ); end;end.