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

СПС

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.