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.