怎么错的，不懂

var
  i,a,b,c,x,y,z:longint;
begin
  read(x,y,z);
  for i:=123 to 333 do
    begin
      a:=i*x;
      b:=a*y;
      c:=a*z;

if

      ((a div 100)*
      ((a div 10)mod 10)*
      (a mod 10)*
      (b div 100)*
      ((b div 10) mod 10)*
      (b mod 10)*
      (c div 100)*
      ((c div 10) mod 10)*
      (c mod 10))
      =(1*2*3*4*5*6*7*8*9) then
writeln(a,' ',b,' ',c);