{ Дано предложение, определить кол-во слов в нём. }

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.