Viết chương trình nhập vào một số nguyên có 2 chử số và xuất ra số đảo ngược

program oken;
uses crt;
var m,n:longint;
begin
        clrscr;
        write('Nhap so n: ');readln(n);
        write('So dao nguoc cua ',n,' la: ');
        m:=n;
        while m>0 do
                begin
                        write(m mod 10);
                        m:=m div 10;
                end;
        readln;
end.

uses crt;

var a, b, n : integer;

begin

clrscr;

write('Nhap so co hai chu so : '); readln(n);

a := n div 10;

b := n - a * 10;

write('So dao nguoc : ', b * 10 + a);

readln

end.