不明白5#为什么错了

var
  i,a1,b1,c1,ans:integer;
function aa(a,b,c:integer):boolean;
var
  i,j:integer;
  s,s1,s2,s3:string;
begin
  aa:=true;
  str(a,s1);
  str(b,s2);
  str(c,s3);
  s:=s1+s2+s3;
  if length(s)<>9 then aa:=false;
  for i:=1 to 8 do
    for j:=i+1 to 9 do
  if s[i]=s[j] then aa:=false;
  for i:=1 to 9 do
    if s[i]='0' then aa:=false;
end;
begin
  read(a1,b1,c1);
  ans:=0;
  for i:=101 to 999 do
    if aa(i*a1,i*b1,i*c1) then begin writeln(i*a1,' ',i*b1,' ',i*c1); inc(ans); end;
  if ans=0 then write('NO!!!');
end.
/////为什么我的答案是‘No！！！’而电脑有解？？？？？