Вывести все 5-значные числа-палиндромы, у которых все цифры - разные

program s5;
var
i,s,x,k,j:integer;
begin
for i:=10000 to 99999 do begin
x:=i;s:=0;
          while x<>0 do begin
          k:=x mod 10;
          s:=s*10+k;
          x:=x div 10;
          end;
x:=i;
if s=x then write(i,' ');
end;
end.

var
  i:longint;
function Pall(p:longint):boolean;
var
  temp,max,i:integer;
  fl:boolean;
  a:array[1..1000]of integer;
begin
  temp:=p;
  max:=0;
  fl:=true;
  while temp<>0 do
  begin
    inc(max);
    a[max]:=temp mod 10;
    temp:=(temp-(temp mod 10)) div 10;
  end;
  for i:=1 to max div 2 do
    if a[i]<>a[max-i+1] then
      fl:=false;
  Pall:=fl
end;
begin
  for i:=10000 to 99999 do
    if pall(i) then
      writeln(i)
end.

var
  i:longint;
function Pall(p:longint):boolean;
var
  temp,max,i:integer;
  fl:boolean;
  a:array[1..1000]of integer;
begin
  temp:=p;
  max:=0;
  fl:=true;
  while temp<>0 do
  begin
    inc(max);
    a[max]:=temp mod 10;
    temp:=(temp-(temp mod 10)) div 10;
  end;
  for i:=2 to max div 2 do
    if (a[i]<>a[max-i+1]) or (a[i-1]<>a[max-i+2]) or (a[i]=a[i-1]) or (a[max-i+1]=a[max-i+2]) or (a[2]=a[3]) or (a[4]=a[3]) then
      fl:=false;
  Pall:=fl
end;
begin
  for i:=10000 to 99999 do
    if pall(i) then
      writeln(i)
end.

var
  i:longint;
  s:string;
begin
  for i:=10000 to 99999 do
  begin
    str(i,s);
    if (s[1]=s[5]) and (s[2]=s[4]) and (s[2]<>s[1]) and (s[2]<>s[3]) then
      writeln(i)
  end;
end.

var
  i:longint;
  s:array[1..5]of longint;
begin
  for i:=10000 to 99999 do
  begin
    s[1]:=i div 10000;
    s[2]:=(i div 1000)mod 10;
    s[3]:=(i div 100) mod 10;
    s[4]:=(i div 10) mod 10;
    s[5]:=i mod 10;
    if (s[1]=s[5]) and (s[2]=s[4]) and (s[2]<>s[1]) and (s[2]<>s[3]) then
      writeln(i)
  end;
end.