SYMMETRY PASCAL

var    n,n1,m,a:longint;
begin
    assign(input, 'SYMMETRY.inp');reset(input);
    assign(output, 'SYMMETRY.out');rewrite(output);
    readln(n);
    n1:=n;
    m:=0;
    while n>0 do
    begin
        a:=n mod 10;
           m:=m*10 + a;
           n:= n div 10;
    end;
    if m=n1 then write(1) else write(0);
end.