Уровень B. Напишите программу, которая получает с клавиатуры натуральное число и определяет, сколько раз в его десятичной записи встречается цифра 1.

uses School;

begin

 Digits(ReadInt64).Count(p -> p = 1).Print

end.

Объяснение:

School - стандартная библиотека для решения школьных задач, вошедшая в PascalABC.NET, начиная с версии 3.6.3

Ну или для PascalABC.NET Более старых версий (Не имеющих поддержки библиотеки School):

begin

 ReadInt64().ToString.ToCharArray.Count(p -> p = '1').Println;

end.

Объяснение: