Для трехзначных чисел до N

var i,n,a,b,c: integer; beginread (n); i: =99; for i: =100 to n dobegina: =i mod 10; b: =i div 10 mod 10; c: =i div 100; if (a<>b) and (a<>c) and (b<>c) then write (i,'); end; end. Проверь (для паскаля)