Напишите программу, подсчитывающую количество букв во введенной строке (слове).

var   s: string;   letters: set of 'А'..'я';   i, n: integer; begin   writeln('Введите текст');   readln(s);   n := 0;   letters := ['А'..'я'];   for i := 1 to length(s) do     if s[i] in letters then n := n + 1;   writeln('Количество букв в строке: ', n); end. Тестовое решение: Введите текст Это текст содержащий буквы, цифры (1,2,3,4), латиницу werwer sxFFSFw и зн"ачки $@#$%#^ Количество букв в строке: 43