дано целое число ...

Ирина

var n,p,d : longint; a : array [0..9] of boolean; v : boolean;

begin

  readln(n);

  d:=n;

  v:=false;

  p:=0;

  while d>0 do

  begin

    p:=p*10+(d mod 10);

    if a[d mod 10]=true then v:=true else a[d mod 10]:=true;

  end;

  if p=n then writeln('Данное число палиндром');

  if not(v) then writeln('Все цифры данного числа разные');

end.Я не знаю работает ли это, если не работает напиши мне. Я исправлю