Дана строка, состоящая из строчных латинских букв. определить кол-во разных символов в строке. использовать множества. . хотя бы образец решение не обязательно. 100

// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString;
  var Q:set of char:=[];
  foreach var c in s do Q+=[c];
  var k:=0;
  foreach var c in Q do k+=1;
  Writeln('Разных символов в строке: ',k);
end.

Пример

Разных символов в строке: 19