С клавиатуры вводится трёхзначное число. Состоит ли это число из одинаковых цифр

var

 a, n1, n2, n3: integer;

begin

 Writeln('Введите трехзначное число: ');

 Read(a);

 n1 := a div 100;

 n2 := (a div 10) mod 10;

 n3 := a mod 10;

 if (n1 = n2) and (n2 = n3) then

   Writeln('Все цифры одинаковые')

 else if (n1 = n2) or (n2 = n3) or (n1 = n3) then

   Writeln('Две цифры одинаковые')

 else  

   Writeln('Нет одинаковых');

end.