Дано натуральное число. определить количество нулей в десятичной записи этого числа. по информатике: циклический алгоритм с постусловием. нужна блок- схема к этой . кто знает .

Var n,k : Integer;
Begin
  Readln(n);
  k:=0;
  Repeat
    If n mod 10 = 0 then k:=k+1;
    n:=n div 10;
  Until n<=0;
  Writeln('В этом числе нулей: ',k);
end.