Номер 6 пожалуйста под буквой а,на втором вложении продолжение номера.Непременно с

Var
  x, a, b, c: integer;                                               //Объявление переменных
 
begin                                                                    //Начало
  read(x);                                                              //Ввод искомого числа
  a := x div 100;                                                    //В переменную a записываем 1      //цифру искомого числа
  b := x div 10 mod 10;                                         //В переменную b записываем 2      //цифру искомого числа
  c := x mod 10;                                                    //В переменную c записываем 3
//цифру искомого числа //writeln(a, ' ', b, ' ', c, ' ');
          if(a lt;gt; b) and (a lt;gt; c) then write('Нет')     //Если 1 цифра искомого числа не  //одинакова 2 и 3 тогда схожих цифр в разыскиваемом числе нет
  else write('Да');                                                  //По другому однообразные цифры в  // разыскиваемом числе есть
end.                                                                     //Конец

И приз в прибавленьи: