var a: array of integer;
var i: byte;
var b: boolean;
begin
b:=true;
setlength(a,8);
var n:=0;
writeln('Введите число: ');
readln(i);
var d:=i;
while i<>0 do
begin
a[n]:=i mod 2;
i:=i div 2;
inc(n);
end;
setlength(a,n);
for i:=0 to n-1 do
begin
if n=0 then
begin
write(0);
break;
end;
swap(a[i],a[n-1]);
write(a[i]);
end;
for i:=1 to n-1 do
begin
if n=0 then
break;
if a[i-1]<>a[i] then
begin
b:=false;
break;
end;
end;
if (b=false) then
write(' = ',d,' это не палиндром')
else
write(' = ',d,' это палиндром');
end.