Язык pascal ввести с клавиатуры натуральное четырехзначное десятичное число. проверить число и вывести на экран сообщение о том, является ли число счастливым или нет. счастливым считается число, у которого сумма двух младших цифр равна сумме двух старших цифр. например: 2341 - счастливое число, а 3145 - нет

Var a:integer;
i,k:integer;
begin
  write('Введите четырехзначное число: ');
  readln(a);
  if ((a mod 10)+(a div 10) mod 10)=(a div 1000 + (a div 100) mod 10) then
    writeln('Счастливый')
  else  writeln('Не счастливый');
end.

Тест №1
Введите четырехзначное число: 2341
Счастливый

Тест №2
Введите четырехзначное число: 3145
Не счастливый