Write a program that determines if there are identical three-digit integers among the digits.

This is the simplest option, in which if you enter a non-three-digit number, the program will generate an error: (More or less three digits)
To solve this problem, we need:
Pascal ABC program.
Knowledge of Pascal language
var
i, a, d: integer;
s: string;
begin
writeln (‘Enter a three-digit number’);
read (s);
if (s [1] = s [2]) or (s [1] = s [3]) or (s [2] = s [3]) then
write (‘Yes’)
else
write (‘No’);
end.