Дано четырёхзначное число n. Проверить,будет ли сумма его цифр чётным числом

Var n:integer; Begin Write('Введите четырёхзначное число '); Readln(n); if ((n>999) and (n<10000)) or ((n>-10000) and (n<-999)) then Begin Write('Сумма цифр числа ',n); if ((n div 1000 + n div 100 mod 10 + n div 10 mod 10 + n mod 10) mod 2) = 0 then Write(' чётна') else Write(' не чётна'); End else write('Число ',n,' не четырёхзначное. Перезапустите программу'); End.