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

a:=x mod 10;b:=x div 10 mod 10;c:=x div 1000;d:=x div 100 mod 10;

спасибо за подсказку

uses crt;var x,a,b,c,d:integer;beginreadln(x);a:=x mod 10;b:=x div 10 mod 10;c:=x div 1000;d:=x div 100 mod 10;if((a+b+c+d) mod 2=0) then writeln ('Сумма цифр числа чётная')else writeln('Сумма цифр числа нечётная');end.