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.
Примечание:
Так и не смог понять, где тут надо было использовать деление числа
