var
 c,last_c:char;
 cnt:integer;
 f:text;
begin
 cnt:=0;
 last_c:=' ';
 assign(f,'input.txt');
 reset(f);
 while not eof(f) do
   begin
     read(f,c);
     if (c in ['!','?','.']) and (last_c in ['!','?','.']=false) then inc(cnt);
     last_c:=c;
   end;
 close(f);
вывод cnt