else if aChar =  then IsWord := True
    else IsWord := False

program CountWord;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
 i,n,count:integer;
 t:string;
 p:boolean=false;

function Rus(mes:string):string;
  var
     i:integer;
 begin
   for i:=1 to length(mes) do
     case mes[i] of
       'А'..'п': mes[i]:=Chr(Ord(mes[i])-64);
       'р'..'я': mes[i]:=Chr(Ord(mes[i])-16);
     end;
   rus:=mes;
 end;

begin
 writeln(rus('Введите текст '));readln(t);
 n:=length(t);

 if (n>0) then begin
 count:=1;
 for i:=1 to n-1 do begin
  if ((t[i]=' ') or (t[i]='.') or (t[i]=',')) and (not p) then
   begin
    inc(count);
    p:=true;
   end
    else
   if (t[i]<>' ') and (t[i]<>'.') and (t[i]<>',') then
     p:=false;
 end;
 end
 else count:=0;
 if (t[n]=' ') or (t[n]=',') then
  count:=1;
 write(count);
 readln;
end.