Создайте программу, которая может доказать теорему 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.