uses crt; var n,n1,t: longint; BEGIN repeat clrscr; write('Nhap vao so n: '); readln(n); if (n>(-32000)) and (n<32000) then break; until (1=1); n1:=0; t:=n; while t>0 do begin n1:=n1*10 + t mod 10; t:= t div 10; end; if n1=n then writeln ('Doi xung') else writeln('Khong doi xung'); readln; END.
