Впаскале авс составте программу которая будет считать нули в числе ! именно в паскале абс

Var A,n : Integer;
Begin
  n:=0;
  Readln(A);
  While A>0 do
  Begin
   If A mod 10 = 0 then Inc(n);
   A:=A div 10;
  end;
  Writeln('Нулей в числе: ',n);
end.