const n=5;
function dif(c:integer):boolean;
var m:set of 0..9; b:boolean;
begin
m:=[];
b:=true;
while c>0 do
 begin
  if c mod 10 in m then b:=false;
  m:=m+[c mod 10];
  c:=c div 10;
 end;
dif:=b;
end;
var
 a:array[1..n] of integer; i:integer;
 begin
for i:=1 to n do read(a[i]);
for i:=1 to n do if dif(a[i]) then write(a[i],'  ');
writeln;
end.

Пример
12 242 3 88 456
12  3  456