Дано слово. определить сколько различных букв в нём. программа паскаль

Программа (строчные и заглавные буквы считаются различными):
var s:string; i,k:integer; m:set of char; c:char;
begin
writeln('Введите слово:');
readln(s);
m:=[];
for i:=1 to length(s) do m:=m+[s[i]];
k:=0;
for c:=chr(32) to chr(255) do
 if c in m then k:=k+1;
writeln('Количество различных букв = ',k);
end.

Пример:
Введите слово:
электрификация
Количество различных букв = 11

10 различных букв...

если числа изначально в 10 системе:

array = list(map(int, input().split())); res = 0; res1 = 0 #ввод  и переменные

for i in array:

   if len(bin(i)[2:]) == 4: res += i; res1 += 1  #пробегаемся по массиву и смотрим подходит ли элемент в двоичном представлении

try:

   print(res / res1)  #если не было подходящих будет деление на 0, поэтому я использовал try except

except: print(0)  #ну если все же подходящих не было выводим 0

если уже в 2:

array = list(map(int, input().split())); res = 0; res1 = 0

for i in array:

   if len(str(i)) == 4: res += i; res1 += 1

try:

   print(res / res1)

except: print(0)

Вроде бы как-то так

Для определённости, пусть есть мини-таблица, где в ячейках верхней строки- названия этих переменных (x, y, z).

В нижней строке, в ячейки под икс и игрек- вводите числа- значения этих двух переменных, а в ячейку под зет- вводите формулу для вычисления значения этого выражения:

=(1+x)/4/y

Только вместо x и y вводим ссылки на ячейки с этими значениями.

Можно чуть по другому её записать, если хотите:

=(1+x)/(4*y)

После набора формулы вводите её нажатием клавиши Enter, и в этой ячейке вычислится и отобразится значение зет.

Уточнение: в формуле вместо букв x и y надо вставлять ссылки на ячейки, в которых находятся значения переменных x и y.  Можно конечно сделать чтобы напрямую работала указанная формула с буквами x и y, но для этого надо задать такие имена ячейкам, содержащим значения этих переменных, тогда будет работать.