不会用数组只能这样做了。。。哈哈哈

var
a,b,c,o,p,q,x,y,z,s1,s2,s3:longint;
begin
for a:=0 to 3 do
for b:=0 to 9 do
for c:=0 to 9 do
begin
s1:=100*a+10*b+c;
s2:=2*s1;
s3:=3*s1;
o:=s2 div 100;
p:=(s2 mod 100) div 10;
q:=s2 mod 10;
x:=s3 div 100;
y:=(s3 mod 100) div 10;
z:=s3 mod 10;
if (a<>b) and (a<>c) and (a<>o) and (a<>p)and (a<>q) and (a<>x) and (a<>y) and (a<>z)and
(b<>c) and (b<>o) and (b<>p) and (b<>q) and (b<>x) and (b<>y) and (b<>z) and
(c<>o) and (c<>p) and (c<>q) and (c<>x) and (c<>y) and (c<>z) and
(o<>p) and (o<>q) and (o<>x) and (o<>y) and (o<>z) and
(p<>q) and (p<>x) and (p<>y) and (p<>z) and
(q<>x) and (q<>y) and (q<>z) and
(x<>y) and (x<>z) and
(y<>z) and (0<a)and(a<=9)and (0<b)and(b<=9)and (0<c)and(c<=9)and (0<o)and(o<=9)and (0<p)and(p<=9)and (0<q)and(q<=9)and (0<x)and(x<=9)and (0<y)and(y<=9)and (0<z)and(z<=9)
then writeln(s1,' ',s2,' ',s3);
end;
end.