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.