PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018
Внимание! Если программа не работает, обновите версию!
begin
var m := ReadInteger('M -');
var n := ReadInteger('N -');
Range(M, N).Select(t -> t.ToString.ToCharArray
.Where(c -> c = '0').Count).Sum.Println
end.