Есть ли в записи числа 3 одинак цифры — Pascal(Паскаль)

  PROGRAM borlpasc;{Есть ли в записи числа 3 одинак цифры}
   VAR N:INTEGER;a,b,c,d:integer;
   BEGIN WRITE('ВВЕДИТЕ ЧИСЛО N=');
         READLN(N);
         a:=n div 1000;
         b:=n div 100 mod 10;
         c:=n div 10 mod 10;
         d:=n mod 10;
         IF (a=b) and (a=c) or (a=b) and (a=d) or (a=c) and (a=d) or
          (b=c) and (b=d)
           THEN WRITELN('В ЗАПИСИ ЧИСЛА ЕСТЬ 3 ОДИНАКОВЫЕ ЦИФРЫ')
           ELSE WRITELN('В ЗАПИСИ ЧИСЛА НЕТ ТРЕХ ОДИНАКОВЫХ ЦИФР')
   END.