Сумма двух крайних цифр заданного четырехзначного числа равна сумме двух его средних цифр - Free Pascal

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

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

Решение задачи: «Сумма двух крайних цифр заданного четырехзначного числа равна сумме двух его средних цифр»

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

var
  n : integer;
  b : boolean;
begin
  repeat
    write('Number (ABCD): ');
    readln(n);
    if (n < 1000) or (n > 9999) then writeln('Error!')    
  until (n >= 1000) or (n <= 9999);
  
  b := (n mod 10) {D} + (n div 1000) {A} = (n div 100 mod 10) {B} + (n div 10 mod 10); {C}
  
  writeln('Result: ', b);
  readln
end.

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

Объявлены две переменные: n (целочисленная) и b (логическая).
Задано условие повторяемости цикла: пока значение n не удовлетворяет условию (n < 1000) или (n > 9999), выводится сообщение об ошибке.
После достижения условия повторения цикла, значение переменной b устанавливается равным сумме двух крайних цифр числа n.
Выводится значение переменной b.
Программа ожидает ввода с клавиатуры.