begin
  var N: word;
  write('Введите число: '); read(N);
  var S:=N.ToString;
  //2.1
  writeln('Является ли число "перевёртышем?": ',(S=S.Inverse)? 'да':'нет');
  //2.2
  write('Есть ли одинаковые цифры: ',((S[1]=S[2]) or (S[2]=S[3]) or (S[1]=S[3]))? 'да':'нет');
end.