Строка s составлена из нескольких предложений, каждоеиз которых заканчивается точкой, восклицательным или вопросительным знаком. напишите программу, которая выводит на экран количество предложений в данной строке.

function max (x,y : longint) : longint;
begin
  if x>y then max:=x else max:=y;
end;
var k : longint; s : string;
begin
  readln(s);
  while (pos('.',s)<>0)or(pos('!',s)<>0)or(pos('?',s)<>0) do

begin
   k:=k+1;

   Delete(s,max(max(pos('.',s),pos('!',s)),pos('?',s)),1);
end;
  writeln(k);
end.