Найдите количество четных цифр в десятичной записи числа 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);