Паскаль. Множества
В строке слова разделены любыми знаками препинания. Подсчитать количество слов, используя множество.

===== PascalABC.NET =====

begin

 var s := ReadString;

 if s.Length = 0 then

   Print(0)

 else

 begin

   var k := 1;

   foreach var c in s do

     if c in [',', '.'] then

       Inc(k);

   Print(k)

 end

end.