uses crt;
var s:string;
c:char;
m:set of char;
n,i,k,p:byte;
begin
writeln('Введите текст из строчных латинских букв, окончаание ввода Enter');
s:='';
repeat
c:=readkey;
if c in ['a'..'z'] then
begin
write(c);
s:=s+c;
end;
if c=#13 then writeln
until c=#13;
n:=length(s);
m:=[];
for c:='a' to 'z' do
begin
k:=0;
for i:=1 to n do
if s[i]=c then k:=k+1;
if k>1 then m:=m+[c];
end;
if m=[] then write('Нет букв, встречающихся более 1 раза')
else
for c:='a' to 'z' do
if c in m then write(c)
end.