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

Пусть х - заданное пользователем произвольное четырехзначное число, a, b, c, d - разрядные числа в записи числа х.

Program z1;

Var x, a, b, c, d:integer;

begin

readln (x);

a: = x div 1000;

b: = x mod 1000 div 100;

c: = x mod 100 div 10;

d: = x mod 10;

if (a + b = c + d) then writeln ('cумма первых двух цифр в записи числа ', x, ' равна сумме двух его последних цифр') else writeln ('cумма первых двух цифр в записи числа ', x, ' не равна сумме двух его последних цифр');

end.