Установить, что сумма первых цифр заданного четырехзначного числа N равна произведению двух последних - Free Pascal

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

Помогите, пожалуйста, создать Составить линейную программу, печатающую значение TRUE, если указанное высказывание является истинным, и FALSE – в противном случае. Высказывание: Сумма первых цифр заданного четырехзначного числа N равна произведению двух последних.

Решение задачи: «Установить, что сумма первых цифр заданного четырехзначного числа N равна произведению двух последних»

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

var a1,a2,a3,a4,a:integer;
begin
read(a);
a1:=a div 1000;
a:=a mod 1000;
a2:=a div 100;
a:=a mod 100;
a3:=a div 10;
a4:=a mod 10;
if (a1+a2)=(a3*a4)
then writeln('TRUE')
else writeln('FALSE');
end.

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

Объявлены пять переменных: a1, a2, a3, a4, a типа integer.
Вводится значение переменной a с помощью функции read(a).
Вычисляются первые четыре цифры числа a с помощью операций деления и остатка от деления:
- a1 = a div 1000 (тысячи)
- a = a mod 1000 (тысячи)
- a2 = a div 100 (сотни)
- a = a mod 100 (сотни)
- a3 = a div 10 (десятки)
- a4 = a mod 10 (десятки)
Сравнивается сумма первых цифр (a1 + a2) с произведением последних двух цифр (a3 * a4).
Если условие (a1 + a2) = (a3 * a4) истинно, то выводится TRUE, иначе выводится FALSE.