Дано натуральное число N.Найти сумму всех чётных цифр этого числа.

на и добавь определение четности
uses crt;
var x,sum: integer;
begin
clrscr;
readln(n);
sum := 0;
while n<>0 do
begin
sum:=sum + x mod 10;
n := n div 10;
end;
write('Сумма цифр = ',sum);
readln;
end.}

s:=0;
while n>0 do begin
s:=s+(n mod 10)*(1 and (n mod 10));
n:=n div 10;
end;

Var n,i,x,t,l:integer; s:string;
begin
readln(n);
str(n,s);
for i:=1 to length(s) do begin
val(s[i],x,l);
if odd(x)=false then t:=t+x;
end;
writeln(t);
end.