Определить количество слов в строке. Слова отделяются одним или несколькими пробелами.

Var
  a: string;

begin
  readln(a);
  writeln(a.Trim().Split( .ToString().ToCharArray(), System.StringSplitOptions.RemoveEmptyEntries).Length);
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.