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

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.

1. "Школьное" решение //PascalABC.Net 3.0, сборка 1064 var   s:string;   i,k:integer; begin   Write('Введите натуральное число: '); Readln(s);   k:=0;   for i:=1 to Length(s) do     if s[i]='0' then Inc(k);   Writeln('Количество нулей в записи числа равно ',k) end. Пример: Введите натуральное число: 13054000230 Количество нулей в записи числа равно 5 2. Современное решение //PascalABC.Net 3.0, сборка 1064 begin   var s:=ReadString('Введите натуральное число: ');   Writeln('Количество нулей в запиcи числа равно ',s.Where(x->x='0').Count) end. Пример: Введите натуральное число:  13054000230 Количество нулей в записи числа равно 5