uses crt;
var temp,n,i,ti,max,smax,ts,err: longint; tstr: string; z: byte;
begin
clrscr;
write('Nhap so luong: ');
readln(n);
for i:=1 to n do
begin
ti:=1;
write('A[',i,']=');
readln(temp);
str(temp,tstr);
for z:=1 to length(tstr) do
begin
val(tstr[z],ts,err);
ti:=ti*ts;
ts:=0;
end;
if (ti>max) then
begin
smax:=temp;
max:=ti;
end;
end;
writeln('Ket qua: ',smax);
readln
end.