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

var

n:longint;

k, sum:integer;

begin

write ('N = ') ;

readln (n) ;

k:=0;

sum:=0;

while n 0 do

begin

if (n mod 10) mod 2 = 0 then

begin

k:=k+1;

sum:=sum + (n mod 10) ;

end;

n:=n div 10;

end;

writeln ('Summa: ', sum) ;

writeln ('Kol-vo: ', k) ;

readln;

end.