ПОМОГИТЕ ПОЖАЛУЙСТА. Работа в паскале. Составьте программу определяющую является ли сумма цифр данного четырёхзначного числа n четным числом

Var   A:integer;BeginWrite('Введите четырёхзначное число: ');ReadLn(A);if ((A div 1000) + ((A div 100) mod 10) + ((A div 10) mod 10) + (A mod 10)) mod 2 = 0 then WriteLn('Да, является')else WriteLn('Нет, не является')End.