Program z12_22; uses crt; var s:String; m:set of char; i:byte; BEGIN writeln('Text: '); readln(s); m:=[]; for i:=1 to length(s) do if (s[i] in ['.',',',':','!',';']) and not (s[i] in m) then begin write(s[i]:2); m:=m+[s[i]]; end; readln; END.