Question

Что делает программа ,и ещё нужно составить условие к задаче?
program two;
var a: array [1..5] of integer;
p, max,j,i : integer;
begin
randomize;
for i:=1 to 5 do
begin
a[i]:=random(15)-7;
write(a[i]:3);
end;
writeln;
max:=a[1]*a[2];
for i:=1 to 4 do
for j:=i+1 to 5 do
begin
p:=a[i]*a[j];
if p>max then max:=p;
end;
for i:=1 to 4 do
for j:=i+1 to 5 do
begin
if a[i]*a[j]=max then write(i:3,j:3);
end;
END.