nhập vào 1 số n kiểm tra xem số đó có phải số đối xứng hay không viết bằng ngôn ngữ pascal viết theo kiểu bình thường ko áp dụng xâu hay mảng

uses crt;
var n,d,c,a,i,l,g,y: integer;
k: array[1..100] of integer;
begin
clrscr;
write('nhap 1 so bay ky:'); readln(n);
c:=0; d:=n;
while n > 0 do
begin
 n:=n div 10;
 c:=c+1;
end;
for i:= 1 to c do
begin
 y:=d mod 10;
 d:=d div 10;
 k[i]:=y;
end;
if c mod 2 = 0 then g:=c mod 2; n:=c; l:=0;
for i:=1 to c do
begin
 if k[i] = k[n] then l:=l+1;
 n:=n-1;
end;
if l = c then write('day la so doi')
else write('day ko phai la so doi');
readln;
end.

(mong dc 5*+hay nhất)