Дано n-значение число. сосчитать количество цифр равных нулю. На языке паскаль​

var

x, counter : integer;

begin

readln(x);

x := abs(x);

while x > 0 do

begin

if (x mod 10 = 0) then

counter := counter + 1;

x := x div 10;

end;

writeln(counter);

end.