Вот код программы.
Program prod3numbers;
uses crt;
Var
massiv: array[1..100] of real;
prod,max1,max2,max3: real;
i,j,k,mas_len: integer;
Begin
clrscr;
Write ('Vvedit dovjinu masyvu <= 100 :'); readln (mas_len);
for i:=1 to mas_len do begin
Write ('Vvedit element masyvu ',i,': '); readln (massiv[i]);
end;
for i:=1 to mas_len do
for j:=i+1 to mas_len do
for k:=j+1 to mas_len do
if (massiv[i]*massiv[j]*massiv[k] > prod) then
begin
max1 := massiv[i];
max2 := massiv[j];
max3 := massiv[k];
prod := massiv[i]*massiv[j]*massiv[k];
end;
write('Maksymalny dobutok= ', prod:5:2,' ( chyslo1= ',max1:5:2,' chyslo2= ',max2:5:2,' chyslo3= ',max3:5:2,' )');
Readkey;
End.