A three-digit number is given. Write a program that defines. Whether among the digits of the given

A three-digit number is given. Write a program that defines. Whether among the digits of the given integer three-digit number are the same.

The condition is used: if the number of hundreds is equal to the number of ones or the number of hundreds is equal to the number of tens or the number of tens is equal to the number of ones then output “there are identical numbers”, otherwise – “there are no identical numbers”.

program equal;
var n: integer;
begin
write (‘Enter a number:’);
readln (n);
if (n div 100 = n mod 10) or (n div 100 = (n div 10) mod 10)
or ((n div 10) mod 10 = (n mod 10))
then write (‘The number has the same digits’)
else write (‘There are no identical digits in the number’)
end.