Задача B.Различные буквы.

Дана строка из русских букв, не более 255 символов. Вывести количество различных букв, считая строчные и заглавные буквы одинаковыми

INPUT.TXT
пРимер
OUTPUT.TXT
5

Алгоритм

1)из входного файла input.txt считываем строку S

2)в цикле с параметром организовываем сравнение каждой буквы начиная с первой на вхождение в подстроку через функцию pos(s[i],copy(s,i+1,length(s))

3)предварительно создаем две строки строчных и заглавных букв русского алфавита
s1:='абвгдежзийклмнопрстуфхцчшщъыьэюя';
s2:='АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';
и одновременно организовываем сравнение каждой строчной или заглавной буквы на вхождение в подстроку ((pos(s1[pos(s[j],s2)],copy(s,j+1,length(s)))=0) and (pos(s2[pos(s[j],s1)],copy(s,j+1,length(s)))=0))

4) если все условия выполняются, значит такая буква единственная и включаем счетчик inc(n)

Знать:

• оператор выбора "if <условие> then <оператор>"
• циклы с параметром for.., с предусловием while..., с постусловием repeat...
• функции обработки строк copy и pos
• обьявление процедуры в Турбо Паскале 7.0

• работать с входными и выходными файлами input.txt output.txt