Тема Множества:Дан текст из строчных латинских букв, за которым следует точка. Напечатать: - все буквы, входящие в текст не менее двух раз; - все буквы, входящие в текст по одному разу. В Паскале АВС

var     l: array ['a'..'z'] of integer;     s: string;     i:integer;     c:char; begin     read(s);     for i := 1 to length(s) do         if s[i] in ['a'..'z'] then             l[s[i]] := l[s[i]] + 1         else if s[i] = '.' then             break;         for c := 'a' to 'z' do         if l[c] >= 2 then             writeln(c, ' = ', l[c]);         for c := 'a' to 'z' do         if l[c] = 1 then             writeln(c, ' = ', l[c]); end.