Строка 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.