program slova;
uses crt;
var st,s:string;  b,c:array [1..50] of string;  i,k,n,j,f:integer;
begin clrscr;
writeln ('vvedite kolichestvo slov');
readln(k);
for i:=1 to k do
begin
writeln ('vvedite slova');
readln (b[i]);
end;
n:=1;
for i:=1 to k do
begin
s:=b[i];
for f:=1 to length(s) do
begin
for j:=f+1 to length(s) do
if s[f]<>s[j] then
begin
c[n]:=s;
end;
inc(n);
end;
end;
for i:=1 to n do
begin
write(c[i]);
write(' ');
end;
readkey;
end.