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

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

begin

Readln (N) ;

a:=N div 1000;

b: = (N div 100) mod 10;

c: = (N div 10) mod 10;

d:=N mod 10;

If a+b=c+d then

Writeln ('Сумма первых двух цифр равна сумме последних двух цифер')

else

Writeln ('Сумма первых двух цифр не равна сумме последних двух цифер') ;

end.