Ребят пожалуйста помогите написать программку для подсчета числа разных разделителей в

Только паскаль, только хардкор ;D

на Паскале сможешь?

//Вот на Pascal, если поможет (да и раз уж можно (комменты:) )), я пробовал написать на С, но есть неразрешимая для меня проблема, я ж его не изучал) Ну, в общем, пробуйте переписать на С)
var
  s, k: string;

begin
  readln(s);
  foreach c: char in s do
    if not (Char.isDigit(c) or Char.IsLetter(c)) then
      if (pos(c, k) = 0) then
        k := k + c;
  writeln(length(k));
end.
=====================