Вопрос Помогите пожалуйста написать программу вычисления суммы цифр четырёхзначного числа в pascal

Помогите пожалуйста написать программу вычисления суммы цифр четырёхзначного числа в Pascal

Program n6;
var a : integer;
Begin
WriteLn "Сами считайте, или слабо?";
End.
Если человек повёлся на слабо, он посчитает, и как бы программа помогла вычислить результат.

program SumOfDigits;

var
num, sum: integer;

begin
writeln('Введите четырехзначное число:');
readln(num);

sum := 0;
sum := sum + num mod 10;
num := num div 10;

sum := sum + num mod 10;
num := num div 10;

sum := sum + num mod 10;
num := num div 10;

sum := sum + num;

writeln('Сумма цифр числа: ', sum);
readln;
end.
В этой программе мы используем операторы mod и div, чтобы получить последнюю цифру числа и удалить ее из числа, соответственно. Затем мы повторяем этот процесс три раза, чтобы получить сумму всех цифр числа. Результат выводится на экран.

Чтобы отбросить последнюю цифру, поделите число на 10 через div.
Чтобы оставить только последнюю цифру, поделите число на 10 через mod.

1235 div 10 = 123 (отбросили последнюю цифру)
1235 mod 10 = 5 (осталась только последняя цифра)

А теперь подумайте, что нужно сделать с исходным числом вроде 1235, чтобы извлечь из него каждую цифру.

program sum_of_digits;

var
number, sum, digit: integer;

begin
writeln('Введите четырехзначное число: ');
readln(number);

sum := 0;

digit := number div 1000;
sum := sum + digit;
number := number mod 1000;

digit := number div 100;
sum := sum + digit;
number := number mod 100;

digit := number div 10;
sum := sum + digit;
number := number mod 10;

digit := number;
sum := sum + digit;

writeln('Сумма цифр в числе равна: ', sum);
readln;
end.