Возвести число в куб - Pascal ABC (13441)

Формулировка задачи:

Создать программу в которой нужно ввести число с клавиатуры и оно должно возвестись в куб и вывести ответ. но возводится должно каждое число. допусти число 55 и возводим его как 5 в кубе и 5 в кубе. Помогите пожалуйста...!

Решение задачи: «Возвести число в куб»

Листинг программы

var n,c,s:integer;
begin
readln(n);
s:=0;
while n>0 do
 begin
  c:=n mod 10;
  s:=s+(c*c*c);
  n:=n div 10;
 end;
write(s)
end.

Объяснение кода листинга программы

Создается переменная n типа integer, которая будет использоваться для чтения числа с консоли.
Создается переменная s типа integer, которая будет использоваться для хранения результата возведения числа в куб.
Инициализируется переменная s значением 0.
Запускается цикл while, который будет выполняться до тех пор, пока значение переменной n больше 0.
В каждой итерации цикла значение переменной n берется по модулю 10 (остаток от деления на 10). Это необходимо для того, чтобы при каждом проходе цикла число уменьшалось на 10.
Полученное значение mod 10 сохраняется в переменной c.
К переменной s добавляется результат умножения значения переменной c на саму себя (ccc).
Значение переменной n делится на 10 (n div 10), что приводит к его уменьшению на 10.
Цикл повторяется, переходим к следующему проходу.
Когда значение переменной n становится равным 0, цикл завершается.
Результат возведения числа в куб (s) выводится на экран.