program
z932;
var
s:string;
procedure
delspaces( var s:string);
begin
while (s[1]='')
and (length(s)>0) do
s:=copy(s,2,length(s)-1);
end;
procedure
words(s:string);
var
slovo,sl : string;
i:integer;
use: set of
'A'..'z';
begin
s:=s+'';
delspaces(s);
while
s<>'' do begin
slovo:=
copy(s,1,pos('',s)-1);
delete(s,1,length(slovo));
use:=[];
sl:='';
for i:=1 to
length(slovo) do
if not
(slovo[i] in use) then begin
sl:=sl+slovo[i];
use:=use+[slovo[i]];
end;
write(sl,'');
delspaces(s);
end;
end;
begin
writeln('vv
tekst:');
readln(s);
words(s);
end.