Чтобы вычислить сумму цифр четырёхзначного числа на языке программирования Pascal, мы можем использовать простой алгоритм, который разделяет число на отдельные цифры и затем суммирует их. Давайте разберем шаги решения:

1. Ввод числа:

   Сначала нам нужно получить четырёхзначное число от пользователя. Для этого используем стандартный ввод.

2. Извлечение цифр:

   Мы будем использовать операцию деления и остатка от деления для извлечения каждой цифры из числа.

   • Первая цифра (тысячи) получается путем деления числа на 1000.
   • Вторая цифра (сотни) получается путем деления остатка от деления числа на 1000 на 100.
   • Третья цифра (десятки) получается путем деления остатка от деления числа на 100 на 10.
   • Четвертая цифра (единицы) получается путем нахождения остатка от деления числа на 10.
3. Сумма цифр:

   Сложите все извлеченные цифры, чтобы получить их сумму.

4. Вывод результата:

   Выведите сумму цифр на экран.

Теперь давайте посмотрим, как это можно реализовать в коде на Pascal:

program SumOfDigits;
var
  number, digit1, digit2, digit3, digit4, sum: integer;
begin
  writeln('Введите четырёхзначное число:');
  readln(number);
  
  digit1 := number div 1000;             { Тысячи }
  digit2 := (number div 100) mod 10;     { Сотни }
  digit3 := (number div 10) mod 10;      { Десятки }
  digit4 := number mod 10;               { Единицы }
  
  sum := digit1 + digit2 + digit3 + digit4;
  
  writeln('Сумма цифр числа: ', sum);
end.

Этот код запрашивает у пользователя четырёхзначное число, извлекает каждую цифру и затем вычисляет их сумму. Запустив программу, вы получите сумму цифр введенного числа.