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 the 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.