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

var s,a,b,c:Integer;beginRead(s);a:= s div 100;b:= s div 10 mod 10;c:= s mod 10;if (a=b) and (b=c) thenWriteLn('Содержит')elseWriteLn('Не содержит');end.Нажимаем "лучший ответ"