Обработка множеств(Паскаль)

[Андрей77777]

Напишите пожалуйста программу к задаче
Ввести символьную строку. Сформировать и распечатать множество, элементы которого -знаки арифметических операций и символ '.' и 'Е'

где '.' cимвол точка

[MihalNik]

А мн-во должно быть как-то связано со строкой?

[Mad_Cat]

p:='+-/*.E';
buf:='';
for i:=1 to length(s) do
if (pos(s[i],p)<>0) and (pos(s[i],buf)=0) then buf:=buf+s[i];
writeln(buf);