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

var N,a,b,c,d:integer;beginReadln(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 thenWriteln('Сумма первых двух цифр равна сумме последних двух цифер')elseWriteln('Сумма первых двух цифр не равна сумме последних двух цифер');end.