Сколько существует трехзначных чисел без повторяющихся цифр?

Ответ: 648.
Нот код решения этой задачки на паскале!

Uses CRT;var a,b,c,d, i, n : integer;beginclrscr;n:=0;   for i:= 100 to 1000 do   begin       a:= i div 100;       b:= i div 10;       b:= b mod 10;       c:= i mod 10;       if (a = b) or (b = c) or (a = c)       then       else       begin       n:= n + 1;   end;   end;         writeln (n);end.