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

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

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

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

В Паскале АВС

  • 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.