uses crt;
 var 
  c,ktnt,xdngto  : string ;
  i , kt, max, min, xd,n ,ngto : integer ;
  s, p : real ;
  begin
   clrscr;
   p := 1 ;
write('Nhap n: ');
 readln(n);
  str(n,c);
    writeln('So ',n,' co ',length(c),' chu so ');
 val (c[1],max);
 val (c[1],min);
  for i := 2 to length(c) do 
   begin
   val(c[i],xd);
   if xd > max then max := xd ;
   if xd < min then min := xd ;
   end ;
 writeln('So lon nhat: ',max,' , so nho nhat: ',min);
  for i := 1 to length(c) do
     begin
     val(c[i],kt);
     s := s + kt ;
     p:=p * kt ;
     end ;
       writeln('Tong: ',s:0:0,' ,tich : ',p:0:0);
    if s>p then writeln('Tong>tich')   else writeln('Tong < tich ');
    for i := 1 to length(c) do 
     ktnt := ktnt + (c[length(c)-i+1]);
     val(ktnt,ngto);
 xdngto := 'Dao nguoc cua n la so nguyen to';
  for i := 2 to ngto-1 do 
   if ngto mod i =0  then xdngto := ' Dao nguoc cua n khong la so nguyen to ';
   writeln(xdngto);
 end .

n=input('nhap n: ')
print('so chu so cua n:',len(n))
print(f'chu so lon nhat: {max(n)}, chu so nho nhat: {min(n)}')
tich=1
tong=0
for i in n:
    tich*=int(i)
    tong+=int(i)
print(f'tong: {tong}, tich: {tich}')
print('tong < tich' if (tong<tich) else 'tong > tich' if (tong>tich) else 'tong = tich')
a=int(n[::-1])
kt='dao nguoc cua n la so nguyen to'
for i in range (2,a):
    if (a%i==0):
        kt='dao nguoc cua n khong la so nguyen to'
print(kt)

$\color{red}{\text{#Daoanhviet96}}$