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