var a,b,c,i,s1,s2,s3,x1,x2,x3,j,p:longint;
    aop:array[1..100000] of longint;
    o:boolean;
begin
  readln(a,b,c);
  for i:=111 to 999 do
  begin
    fillchar(aop,sizeof(aop),0);
    o:=true;
    if i mod a=0 then
    begin
      s1:=i;
      x1:=s1;
      s2:=i div a*b;
      x2:=s2;
      s3:=i div a*c;
      x3:=s3;
      repeat
        inc(aop[s1 mod 10]);
        s1:=s1 div 10;
      until s1=0;
      repeat
        inc(aop[s2 mod 10]);
        s2:=s2 div 10;
      until s2=0;
      repeat
        inc(aop[s3 mod 10]);
        s3:=s3 div 10;
      until s3=0;
      for j:=1 to 9 do
        if aop[j]<>1 then o:=false;
      if o=true then begin p:=1; writeln(x1,' ',x2,' ',x3); end;
    end;
  end;
  if p=0 then write('No!!!');
end.