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

Var n,a,b,c,d:integer;
begin
write(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 (ab)and(ac)and(ad)and(bc)and(bd)and(cd)
  then writeln(В числе все цифры различны)
  else writeln(В числе есть одинаковые цифры);
end.

Пример:
n = 1315
Число - не палиндром
В числе есть одинаковые цифры