program daoso;
uses crt;
var n:longint;
i:byte;
s,dao:string[5];
begin
clrscr;
repeat
write('nhap n: ');
readln(n);
if (n<10) or (n>32767) then writeln('10<n<32767. Nhap lai!');
until (n>10) and (n<32767);
str(n,s);
dao:='';
for i:=length(s) downto 1 do
dao:=dao+s[i];
write('So dao cua ',n,' la: ',dao);
readln
end.