Содержит ли число ровно три одинаковые цифры? (паскаль)

Var s,a,b,c:Integer;
begin
Read(s);
a:= s div 100;
b:= s div 10 mod 10;
c:= s mod 10;
if (a=b) and (b=c) then
WriteLn('Содержит')
else
WriteLn('Не содержит');
end.
Нажимаем "лучший ответ"