Найдите количество четных цифр в десятичной...

Задание:

Найдите количество четных цифр в десятичной записи числа n.

Решение на языке Паскаль:

program z2;
var x, y, k:integer;
Begin
       readln (x);
        k:=0;
        while x<>0 do
        begin
             y:=x mod 10;
             if y mod 2 =0 then k:=k+1;
             x:=x div 10;
        end;
        writeln ('k=',k);
end.