Дано шестизначное число. Найти сумму его цифр, а также число, получаемое при прочтении его цифр справа налево - Pascal ABC

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

Дано шестизначное число. Найти сумму его цифр, а также число, получаемое при прочтении его цифр справа налево pascal

Решение задачи: «Дано шестизначное число. Найти сумму его цифр, а также число, получаемое при прочтении его цифр справа налево»

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

var
  sum, n, r: longint;
 
begin
  writeln('Ввести число: ');  
  readln(n);
  r := 0;
  sum := 0;
  while n <> 0 do
  begin
    sum := sum + n mod 10;
    r := r * 10 + n mod 10;
    n := n div 10
  end;
  writeln('Число: ', r);
  writeln('Сумма: ', sum);  
  //  readln
end.

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

Ввод числа: В данной строке программа запрашивает у пользователя шестизначное число и сохраняет его в переменной n.
Инициализация переменных: В этой строке программа инициализирует две переменные sum и r значением 0. Переменная sum будет использоваться для хранения суммы цифр введенного числа, а переменная r - для хранения числа, полученного при чтении цифр справа налево.
Цикл while: Эта строка запускает цикл while, который будет выполняться до тех пор, пока значение переменной n не станет равным 0.
Вычисление суммы цифр: В этой строке программы происходит вычисление суммы цифр введенного числа. Каждая цифра числа берется по модулю 10 и добавляется к переменной sum.
Вычисление числа r: В этой строке программы происходит вычисление числа r. Для этого используется умножение переменной r на 10 и прибавление к ней остатка от деления значения переменной n на 10.
Деление n на 10: В этой строке программа делит значение переменной n на 10 и сохраняет результат в переменной n. Это необходимо для того, чтобы при следующем проходе цикла значение n было равно 0, что позволит начать новый цикл.
Повторение цикла: Эта строка запускает цикл while заново.
Вывод результатов: После завершения цикла программа выводит на экран результаты - сумму цифр и само число r.
Конец программы: Эта строка завершает выполнение программы.