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.
Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.