uses crt;
var  a : array[1..100] of integer;
n : int64;
st : string; i : integer;
max, min,code : integer;
begin clrscr;
write('Nhap so tu nhien n co 5 chu so :'); readln(n);
str(n,st);
write('So dao nguoc cua n la :');
for i:=length(st) downto 1 do write(st[i]);
for i:=1 to length(st) do val(st[i],a[i],code);
max:=a[1]; min:=a[1];
for i:=1 to length(st) do if a[i] > max then max:=a[i];
for i:=1 to length(st) do if a[i] < min then min:=a[i];
writeln;
writeln('So nho nhat trong ',n,' la :',min);
writeln('So lon nhat trong ',n,' la :',max);
readln
end.

uses crt;
var n,i:longint; s,max,min:string;
begin
clrscr;
   write('n=');readln(n);
   str(n,s); write('So dao nguoc: '); min:='9';
   for i:=1 to 5 do
      begin
         write(s[5-i+1]);
         if s[i]>max then max:=s[i];
         if s[i]<min then min:=s[i];
      end; writeln;
   writeln('So lon nhat: ',max);
   writeln('So be nhat: ',min);
readln
end.