Создайте программу, которая может доказать теорему 153 если взять любое натуральное число кратное трем и находить сумму кубов каждой цифры а затем из числа суммы которое получилось находить сумму кубов каждой цифры то через некоторое время получится постоянное число равное 153 например 27

2^3+7^3=8+343=351

3^3+5^3+3^3=27+125+1=153

var

       n: LongWord;

begin

       Read (n);

       WriteLn;

       WriteLn (n);

       while n <> 153 do begin

               n := ((n div 100) * (n div 100) * (n div 100)) +

                    ((n div 10 mod 10) * (n div 10 mod 10) * (n div 10 mod 10)) +

                    ((n mod 10) * (n mod 10) * (n mod 10));

               WriteLn (n)

       end;

end.