Ответ:

var

 s: string;

 i, k: integer;

begin

 readln(s);

 writeln('Длина строки: ', length(s));

 for i := 1 to length(s) do

   if s[i] = ' ' then inc(k);

 writeln('Количество пробелов: ', k);

 writeln('Длина первого слова: ', pos(' ', s) - 1)

end.

Объяснение:

pascal