Дано натуральное число 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.