var
 s,tmp:string;
 x,len,cnt:integer;
 f:text;
begin
 cnt:=0;
 assign(f,'input.txt');
 reset(f);
 while not eof(f) do
   begin
     readln(f,s);
     len:=length(s);
     for x:=1 to len-1 do  // перебираем все символы кроме последнего
      begin
        // 1 - Eсли удовлетваряет услови.
        // 2 -  чтобы исключить ... .? !? итд 
       if (s[x] in ['!','?','.']) and (s[x+1] in ['!','?','.']=false) then inc(cnt);
      end;
    if (s[len] in ['!','?','.']) then inc(cnt);
  end;
вывод cnt