Дано 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. 

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