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);
 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 .

Chúc bạn học tốt

trandangqp2009.

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 ;
  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 .

trandangvnn.