Program Number3;
Uses Crt;
Var
i:word;
Stri:string[3];
BEGIN
ClrScr;
for i:=100 to 987 do
begin
Str(i,Stri);
if (Stri[1]<>Stri[2]) and (Stri[2]<>Stri[3]) and (Stri[1]<>Stri[3])
then write(i:4);
end;
writeln;
writeln('Press any key...');
repeat
until KeyPressed
END.