lập trình pascal dùng longint đề: Tìm số có các chữ số đảo ngược với các chữ số n

program pht;
uses crt;
  var n, a, x: longint;
begin
       clrscr;
       write(‘Nhap n = ‘); readln(n);
       a:=0;
       while n<>0 do
       begin
                x:=n mod 10;
                a:=a*10+x;
                n:=n div 10;
       end;
       write(‘So dao nguoc: ‘, a);
       readln
end.