Ответ:

pascal

Объяснение:

program slova;

var

 s: string;

 k, i: integer;

begin

 WriteLn('Введите предложение:');

 ReadLn(s);

 k := 1;

 for i := 1 to length(s) do

   if s[i] = ' ' then k := k + 1;

 WriteLn('Кол-во слов: ', k);

end.