Cho số nguyên dương N, hãy cho biết N có đối xứng không

Program BTT;
Uses crt;
Var St,S: String;
    i: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(St);
        S:='';
        For i:=length(St) downto 1 do
                S:=S+St[i];
        If St=S then Write('Doi xung')
        Else Write('Khong doi xung');
        Readln
End.

var n:longint;

function check(n:longint) : boolean;

var s:string

begin

str(n,s);

for i:=1 to length(s) div 2 do

if s[1+i-1]<>[length(s)-i+1] then exit(false);

exit(true);

end;

begin

write('Nhap n: '); readln;

if check(n) then write('La so doi xung') else write('Khong phai la so doi xung');

readln;

end.