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

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

Помогите написать программу Дано натуральное число. Найти число, получаемое при прочтении его цифр справа налево. Вычислить сумму .

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

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

var
a, b, c, d, sumch, sumcif:integer;
begin
writeln('Введите натуральное число');
read(a);
sumcif:=0;
d:=a;
while a > 0 do
    begin
    b:=a mod 10;
    inc(sumcif,b);
    c:=c*10+b;
    a:=a div 10;
    end;
writeln('Полученное число: ',c);
sumch:=d + c;
writeln('Сумма исходного и полученного чисел = ',sumch,' сумма цифр числа = ',sumcif);
end.

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

В начале объявляются переменные a, b, c, d, sumch и sumcif типа integer.
Затем выводится сообщение для ввода натурального числа.
Считывается введенное число и сохраняется в переменной a.
Инициализируется переменная sumcif значением 0.
Инициализируется переменная d значением a.
Запускается цикл while, который выполняется до тех пор, пока a больше 0.
Внутри цикла считывается последняя цифра числа a (с помощью операции mod 10) и сохраняется в переменной b.
Инкрементируется значение переменной sumcif на единицу, используя операцию inc.
Полученное число c вычисляется как результат умножения текущей цифры числа a (b) на 10 и прибавления к нему предыдущего значения переменной b (c).
a делится на 10 (операция div) для получения следующей цифры числа.
Цикл повторяется, пока a больше 0.
После завершения цикла выводится полученное число c.
Вычисляется сумма исходного и полученного чисел как сумма переменных d и c и сохраняется в переменной sumch.
Вычисляется сумма цифр числа a и сохраняется в переменной sumcif.
Выводится сообщение с результатами вычислений.