Ответ:
7) cadabra
9)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.