Дано четырехзначное число. Найти сумму первой и последней цифры и разность второй и третьей - Turbo Pascal

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

Дано четырехзначное число. Найти сумму первой и последней цифры и разность второй и третьей.

Решение задачи: «Дано четырехзначное число. Найти сумму первой и последней цифры и разность второй и третьей»

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

program algoritm;
 
var
  x: integer;
 
begin
  write('Введите четырехзначное положительное число: ');
  readln(x);
  if (x > 999) and (x <= 9999) then 
  begin
    writeln('Сумма первой и последней цифры: ', x div 1000 mod 10 + x mod 10);
    write('Разность второй и третьей: ', x div 100 mod 10 - x div 10 mod 10);
  end
  else 
    writeln('Было введено не четырехзначное число.');
end.

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

В программе объявляется переменная x типа integer, которая будет использоваться для хранения введенного числа.
Программа выводит сообщение с просьбой ввести четырехзначное положительное число.
С помощью функции readln считывается введенное значение и сохраняется в переменной x.
Проверяется, что введенное значение находится в диапазоне от 1000 до 9999.
Если условие выполняется, то выводится сумма первой и последней цифры числа, а также разность второй и третьей цифры.
Если введенное значение не является четырехзначным, то выводится сообщение об ошибке.