Задание на подсчет полного набора символов(мощности алфавита) используемого при кодировании информации

Var
  c: set of char;
  i, n: integer;
  s: string;

begin
  c := [];
  write(Введите текст: );
  readln(s);
  n := 0;
  for i := 1 to length(s) do
    if not (s[i] in c) then
    begin
      include(c, s[i]);
      n := n + 1
    end;
  writeln(Мощность алфавита, использованного для строки, равна , n)
end.

Тестовый прогон:

Введите текст: В чащах юга жил бы фикус? Да, но фальшивый экземпляр...!
Мощность алфавита, использованного для строки, равна 35

Введите текст: Pi:=3.14159265; D:=Pi*sqr(D)/4;
Мощность алфавита, использованного для строки, равна 22

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.