Дано натуральное число n. определить, верно ли, что это число содержит ровно три одинаковые цифры. решите алгоритмом

Var
a,b,c,x:integer;
begin
write('Введите трехзначное число. X=');
readln(x);
a:=x div 100;
b:=(x mod 100) div 10;
c:=(x mod 10) div 1;
if (a=b) and (b=c) then writeln('Верно!')
else writeln('Не верно');
readln;
end.