Написать программу в паскале напишите программу, подсчитывающую количество различных букв в заданном слове. входные данные: ввести строкy y с длиной не более 255 символов. выходные данные: вывести одно число, количество различных символов в данной строке.

var
  y, b: string;
  i: integer;

begin
  readln(y);
  for i := 1 to length(y) do
    if (Pos(y[i], b) = 0) then
      b := concat(b, y[i]);
  writeln(length(b));
end.