Плиз решите задачку!буду очень признателен!процедура в ТР!

[semo]

Задача: Дано натуральное число.Определите сколко четных цифр используется в записи этого числа!

[BBB]

Код: Выделить всё

function HowMany (iNum : integer) : integer;
var  S : string;
     iLoop : integer;
     iQty : integer;
begin
  Str (iNum, S);
  iQty := 0;
  for iLoop := 1 to Length (S) do begin
    if (S [iLoop] in ['0', '2', '4', '6', '8'] then
      iQty := iQty + 1;
  end;
  HowMany := iQty;
end.