var s: string;
i,j,k: integer;
unique: boolean;
begin
for i : = 1000 to 9999 do
begin
s : = str(i);
unique: =true;
for j: = 1 to length(s)-1 do
for k : = j+1 to length(s) do
begin
if s[j] = s[k] then unique: =false;
end;
if unique then
writeln(i);
end;
end.
может длинее, но универсальное.