Олимпиадные задачи

Домашнее задание                                                                        (10 Баллов)

Решение:

var s:string;
a,b,kol:longint;
begin
read(s);
a:=length(s);
for b:=1 to a do
if ((s[b]=' ')or(s[b]='.'))and((s[b+1]<>' ')or(s[b+1]<>'.')) then kol:=kol+1;
writeln(kol);
end.