Дано натуральное число N (N> 9). Определить количество
нулей в цифровой записи числа, кроме нулей в младших разрядах.
Пример. N=10 025 000. Количество нулей равно двум.Пожалуйста

var n,k:integer;beginwrite('n = ');readln(n);k:=0;while n mod 10 = 0 do n:=n div 10;while n>0 do begin if n mod 10 = 0 then k:=k+1; n:=n div 10; end;writeln('k = ',k);end.Пример:n = 1010203000k = 2