Напишите программу в Pascal ABC которая будет считать нули в числе

Cпасибо !)

Пожалуйста

// PascalABC.NET 3.1, сборка 1201 от 18.03.2016begin  Writeln(ReadlnString('n=').Count(x->x='0'),' нулей');end.Тестовое решение:n= 53500045333000456456008 нулей