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

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.