Помогите написать программу. Паскаль. Пожалуйста.

Ответ:

program tt;

uses wincrt;

var

 chislo,a,b,c:integer;

begin

 ClrScr;

 writeln('Введите число:');

 readln(chislo);

 a:=chislo div 100;

 b:=(chislo mod 100) div 10;

 c:=chislo mod 10;

 if (a=b) or (a=c) or(b=c) then

   writeln('Есть!')

 else

   writeln('Нет!');

 readln;

end.

Разъяснение: