program tim_so;

uses crt;

var A:array[1..1000] of integer;

     n,max,i,j,ptu:integer;

function tich(k:integer):integer;

begin

       tich:=1;

       while n>0 do

              begin

                     tich:=tich*(n mod 10);

                     n:=n div 10;

              end;

end;

BEGIN

       clrscr;

       write('Nhap so luong: ');   readln(n);

       write('A[1]= ');   readln(A[1])

       max:=tich(A[1]);   ptu:=A[1];

       for i:=2 to n do

              begin

                     write('A[',i,']= ');   readln(A[i]);

                     if tich(A[i])>max then

                            begin

                                   max:=tich(A[i]);

                                   ptu:=A[i];

                            end;

              end;

       write('So co tich lon nhat la: ',ptu);

       readln;

end.

uses crt;
var n,i,m,max:longint; a:array[1..10000000]of longint;
function tich(a:longint):longint;
begin
   tich:=1;
   repeat
      tich:=tich*(a mod 10);
      a:=a div 10;
   until a=0;
end;
begin
clrscr;
   write('Nhap so phan tu: ');readln(n); 
   for i:=1 to n Do 
      begin
         write('Nhap phan tu thu ',i,': ');readln(a[i]);
         if tich(a[i])>max then 
            begin
               max:=tich(a[i]);
               m:=a[i];
            end;
      end;
   writeln('So co cac tich cac chu so lon nhat ',m);
readln
end.