Условный опеаратор if

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

Рассмотрим пример

Дано число 4825. Для получения его цифр применим операцию деления с остатком последовательно к самому числу и к получаемым частным. При получении двузначного числа, остаток будет второй, а  частное - первой цифрой этого числа:

4825:10=482 (ост. 5)
482:10=48 (ост. 2)
48:10=4 (ост. 8)
 Решение
program primer;
var n,a1,a2,a3,a4:integer;
begin
  write('Enter n=');
  readln(n);
  a4:=n mod 10; // получаем последнюю цифру числа
  n:=n div 10;     // уменьшаем число на разряд единиц
  a3:=n mod 10; // получаем предпоследнюю цифру числа
  n:=n div 10;     // уменьшаем число на разряд десятков
  a2:=n mod 10; // получаем вторую цифру числа
  a1:=n div 10;   // получаем первую цифру числа
  if a1+a2=a3+a4 then
   writeln('true')
  else
   writeln('false');
end.