Дана строка, заканчивающаяся точкой. Подсчитать, сколько в ней слов.

Var

S:string;

i, k:integer;

Begin

Write ('Введите строку: ') ; ReadLn (S) ;

k:=0;

i:=1;

Repeat

if (S[i] = ' ') or (S[i] = ',') or (S[i] = ':') or (S[i] = '; ') or (S[i] = '?') or (S[i] = '!') then

if not ((S[i+1] = ' ') or (S[i+1] = ',') or (S[i+1] = ':') or (S[i+1] = '; ') or (S[i+1] = '?') or (S[i+1] = '!')) then

k:=k+1;

i:=i+1

Until S[i] = '.';

WriteLn ('Количество слов: ', k+1) ;

End.