Напишите программу которая запрашивает на вход натуральное число и определяет, сколько раз в его записи встречается цифра 3. P.s Похожая программа была для единицы, но я не понимаю, как преобразовать ее для 3. Объясните алгоритм

Программа:

(см. прикрепленный файл)

// PascalABC.NET 3.6

begin

 ReadInt64('Введи натуральное число:').ToString.Count(c -> c = '3').Print

end.

Объяснение:

ReadInt64('Введи натуральное число:') - запрос ввода целого числа длиной до 19 цифр

.ToString - преобразование числа в строку символов

.Count(c -> c = '3') - подсчет символов '3' в строке

.Print - вывод результата