function dx(x:longint):boolean; var y,z:longint; begin y := 0; z := x; while(x>0) do begin y := y * 10 + x mod 10; x := x div 10; end; if y=z then exit(true); exit(false); end; var n : longint; begin readln(n); if dx(n) then writeln('YES') else writeln('NO'); readln end.
function solve(n:longint):boolean; var i:longint; s:string; begin str(n,s); for i:=1 to length(s) do if s[i]<>s[length(s)-i+1] then exit(false); exit(true); end;
begin clrscr; readln(n);
//check, TRUE is right and FALSE is wrong writeln(solve(n)); readln; end.
