Дано четырехзначное число N.Выяснить:
а. Является ли число палиндромом?
б. Верно ли, что все 4 цифры этого числа различны.

var n,a,b,c,d:integer;beginwrite('n = ');readln(n);a:=n div 1000;b:=n div 100 mod 10;c:=n mod 100 div 10;d:=n mod 10;if a*10+b=d*10+c  then writeln('Число - палиндром')  else writeln('Число - не палиндром');if (a<>b)and(a<>c)and(a<>d)and(b<>c)and(b<>d)and(c<>d)  then writeln('В числе все цифры различны')  else writeln('В числе есть одинаковые цифры');end.Пример:n = 1315Число - не палиндром В числе есть одинаковые цифры