Дано 4 значное число. Определить, является ли сумма его цифр четным?

Какое число? Это легко

Program z1; var t, c, d, e, n, z:integer; begin

writeln ('введите любое четырёхзначное число') ; writeln; readln (n) ;

t:=n div 1000;

c: = (n-t*1000) div 100;

d: = (n-t*1000-c*100) div 10;

e:=n-t*1000-c*100-d*10;

z:=t+c+d+e; writeln (z) ; writeln;

if z mod 2 = 0 then writeln ('да, сумма цифр в числе чётна')

else writeln ('нет, сумма цифр в числе не чётна') ; end.