Viết chương trình in ra số đảo của số vừa nhập VD: 123 -> 321

Viết chương trình in ra số đảo của số vừa nhập

VD: 123 -> 321.
Program sodao;
uses crt;
var a,i,s,m:Longint; b,c:string;
Begin
clrscr;
Writeln('Moi ban nhap so');
readln(a);
str(a,b);
For i:=length(b) downto 1 do c:=c+b[i];
val(c,s,m);
Writeln('So dao la ',s);
Readln;
End.

Bài tập này, bạn cần hiểu rõ về kiểu string.