А)
var
s:string;
mas:array ['a'..'z'] of longint;{индексы элементов соответствуют латинице}
c:char;
i:longint;
begin
read(s);
for c:='a' to 'z' do{заполнение нулями элементов массива, для запоминания количества
элементов в латинице}
mas[c]:=0;
for i:=1 to ord(s[0]) do{пробегаем по всей строке
ord(s[0]) это количесвто элементов в строке (только паскаль)}
mas[s[i]]:=mas[s[i]]+1;
for c:='a' to 'z' do{пробегаем по массиву значений и выводим только неповторяющиеся}
if(mas[c]=1) then
writeln(c);
end.