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

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.
Нажимаем "лучший ответ"