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.
Объяснение:
