Câu trả lời:
program bai2; ddaay:)))))
var a:array [1..100] of integer;
i,j,n,t,s,max1,max2,max3:integer;
begin
readln(n);
for i:=1 to n do
begin
readln(a[i]);
end;
for i:=1 to n do
for j:=1 to n do
if a[i]>a[j] then
begin
t:=a[i];
a[i]:=a[j];
a[j]:=t;
end;
begin
max1:=a[1];
for i:=1 to n-1 do
if max1<a[1] then
max1:=a[1];
end;
begin
max2:=a[2];
for i:=1 to n-2 do
if max2<a[2] then
max2:=a[2];
end;
begin
max3:=a[3];
for i:=1 to n-3 do
if max3<a[3] then
max3:=a[3];
end;
s:=abs(max1 * max2 * max3);
write(s);
end.