为什么60分。第2和3个测试点0分

var
     h:char;
     i,j,k,b,c,d:longint;
     s,st:string[9];
     x:boolean;
   begin
     readln(b,c,d);
     for i:=123 to 987 do
     if i mod b=0 then
       begin
         j:=trunc(i/b*c);  k:=trunc(i/b*d);
         if (j<1000) and (k<1000) then
         begin
         str(i,s);
         str(j,st);
           s:=s+st;
         str(k,st);
           s:=s+st;
            x:=true;
           for h:='1' to '9' do if pos(h,s)=0 then x:=false;
          if x then writeln(i,' ',j,' ',k);
         end;
      end;
   end.