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

VAR
a,c1,c2,c3,c4: integer;
BEGIN
readln(a);
c1 := a div 1000;
c2 := (a div 100) mod 10;
c3 := (a div 10) mod 10;
c4 := a mod 10;
if c1+c2=c3+c4 then writeln ('ДА') else writeln('НЕТ');
readln;
END.