$\begin{array}{c} \color{#03fc62}{\texttt{#AlexanderMartin}} \end{array}$

`*)` Pascal :

var s, result : string;
    i : longint;
begin
    assign(input,'SODX.INP');
    reset(input);
    assign(output, 'SODX.OUT');
    rewrite(output);
    
    readln(s);
    result := '';
    for i := length(s) downto 1 do result := result + s[i];
    if s = result then write('1')
        else write('0');
        
    close(input);
    close(output);
end .

`*)` Hướng giải quyết bài toán :

  - Nhận xét bài toán : ta nhận thấy với giới hạn là `10^6` thì có thể dùng While để tối ưu, tuy nhiên dùng xâu vẫn tối ưu nhất. (:>)

  - Cách giải quyết bài toán :

   1. Nhập xâu từ tệp SODX.INP

   2. Khởi tạo biến result = '' (tạo biến rỗng).

   3. Chạy vòng lặp ngược từ cuối xâu lên đầu xâu, cộng dồn vào biến result.

   4. Nếu s = result, đó là xâu (số) đối xứng, ngược lại không.

đây nha bạn

var i,j,d:longint; 
    n:ansistring;
    fi,fo:text;
function dx(n:ansistring):boolean;
var i:longint;
begin
dx:=true;
for i:=1 to length(n) div 2 do
 if n[i] <> n[length(n)-i+1] then dx:=false;
end;
begin
 assign(fi,'sodx.inp'); reset(fi);
 assign(fo,'sodx.out'); rewrite(fo);
  readln(fi,n);
  if dx(n)=true then write(fo,1) else write(fo,0);
  close(fi); close(fo);
  end.