Program String_6;
uses crt;
var tec : string;
l,i,n : longint;
begin
clrscr;
write('введите текст:');readln(tec);
l:=length(tec)+1;tec[l]:=' ';
for i:=1 to l do if tec[i]=' 'then n:=n+1;
write('В тексте ',n,' слов');
readln;
end.