.Ввести с клавиатуры символьную строку и определить сколько в ней слов. Пример: Вася пошел гулять.---- Найдено 3 слова.

// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
  var s:=ReadlnString('>');
  Print('Найдено слов:',s.ToWords.Count)
end.

Тестовое решение:
> Вася пошел гулять
Найдено слов: 3