Оператор CASE - Pascal (88661)

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

Составьте программу вычисления суммы цифр введенного с клавиатуры трехзначного натурального числа. Например, для числа 128 сумма цифр 11, для числа 345 сумма цифр 12. (решить с помощью оператора CASE) Заранее спасибо...)

Решение задачи: «Оператор CASE»

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

{ Составьте программу вычисления суммы цифр введенного 
с клавиатуры трехзначного натурального числа. 
Например, для числа 128 сумма цифр 11, для числа 345 сумма цифр 12. 
(решить с помощью оператора CASE) }
var
  n,s: integer;
begin
  readln(n);
  s:= n mod 10 + n div 100 + n div 10 mod 10;
  writeln(s);
end.

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

Задана задача: написать программу вычисления суммы цифр введенного с клавиатуры трехзначного натурального числа.
Для решения задачи используется оператор CASE.
Вводимое число разбивается на три части: десятки, сотни и тысячи.
Каждая часть приводится к однозначному числу и суммируется с остальными.
Результат вычислений выводится на экран.
Временная переменная n используется для хранения введенного числа.
Временная переменная s используется для хранения суммы цифр введенного числа.
Вначале программа считывает значение переменной n с помощью функции readln.
Затем происходит вычисление значения переменной s с помощью оператора CASE.
Значение переменной s выводится на экран с помощью функции writeln.