Найти сумму цифр введенного 4-значного числа - Turbo Pascal

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

Если можно, то полностью. Зарание спасибо

Решение задачи: «Найти сумму цифр введенного 4-значного числа»

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

Var s,n:integer;
Begin
    write('4-х значное число: ');readln(n);
    s:=(n mod 10)+(n div 10 mod 10)+(n div 100 mod 10)+n div 1000;
    writeln('S = ',s);
    readln;
End.

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

В данном коде используется язык программирования Turbo Pascal.

Строка write('4-х значное число: '); выводит на экран сообщение 4-х значное число:, ожидая ввода числа.
Строка readln(n); считывает введенное пользователем число и сохраняет его в переменной n.
Переменная s инициализируется как сумма цифр числа n.
Выражение s := (n mod 10) + (n div 10 mod 10) + (n div 100 mod 10) + n div 1000; вычисляет сумму цифр числа n. Здесь mod и div используются для деления с остатком и целочисленного деления соответственно.
Строка writeln('S = ',s); выводит на экран значение переменной s.
Строка readln; считывает символ новой строки, завершая чтение ввода.