Решение во вложении. Не забудьте разрешить выполнение макросов и проектов VBA без цифровой подписи.
Решаем выражение, полученное значение переводим из десятичной системы в троичную и считаем количество "2"
// PascalABC.NET 3.1, сборка 1250 от 28.05.2016
begin
var s:=ReadlnString('Вводите:');
Write('Кол-во слов: ',s.ToWords.Count)
end.
<u><em>Тестовое решение</em></u>
Вводите: А роза упала на лапу Азора
Кол-во слов: 6