тема Множества:
Дан текст из строчных латинских букв, за которым следует
точка. Напечатать:

- все буквы, входящие в текст не менее двух раз;

- все буквы, входящие в текст по одному разу.

В Паскале АВС

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.