uses crt;
const lb=['A'..'Z','a'..'z'];
var s:string;
m:set of char;
i:byte;
c:char;
begin
clrscr;
writeln('Введите текст из латинских букв:');
readln(s);
m:=[];
for i:=1 to length(s) do
if s[i] in lb then
begin
if not(s[i] in m) then m:=m+[s[i]]{если нет буквы в множестве - добавляем}
else m:=m-[s[i]];{если уже есть, исключаем ее из множества}
end;
writeln('Буквы встречаются 1 раз:');
for c:='A' to 'z' do
if c in m then write(c,' ');
readln
end.