Возьмём какую-нибудь переменную целого типа, например sum. Изначально её значение равно нулю. Напишем цикл - пока x не равен нулю делаем:
1. s := s + последня цифра числа x;
2. Отбрасывает от x последнюю цифру (присваеваем х целую часть от деления х на 10).
Выводим sum.