Дано натуральное число n.Определить сколько в числе нулей.Pascal ABC

нужно другое решение попроще!

Var i:integer;c:char;beginrepeat read(c); if (ord(c)=48) then i:=i+1;until (c='');writeln(i);End.

Так попроще, но только после ввода числа надо обязательно пробел ставить

Var i:integer;c:char;beginrepeat read(c); if (ord(c)=48) then i:=i+1;until (c=' ');writeln(i);End.

Var n,i:longint; begin read (n); i:=0; repeat if (n mod 10 = 0) then i:=i+1; n:= n div 10; until (n=0); writeln(i); End.