Задача на перебор Turbo Pascal

[nobody_nohead]

Сообщение от Serge_Bliznykov

пожалуйста.

функцию самостоятельно Calculate напишете? сюда готовый код выложите?
имхо, неплохо, если в теме останется готовое решение, которое может пригодиться кому-то...

Вот, сделал несколько тестов - вроде работает.
Не могли бы Вы, пожалуйста, указать на моменты, которые можно было сделать проще? Что-бы в дальнейшем не приходилось писать такой г**но-код при решении столь простых задач.
Хотя сомневаюсь, что у кого-то есть желание рыться в этом...

program test3;
const nmax = 1000;
type massive = array[1..nmax] of integer;
procedure calculate(myarray: massive; x, y: integer; maxresult: longint; var result: longint;  sumpos: integer);
         {Определение наилушчего расположения знаков умножения}
         begin
         if y = x+1 then
            begin
            result:= myarray[x] * myarray[y] * myarray[y + 1];
            if result > maxresult then
               sumpos:= myarray[x] + myarray[y] + myarray[y + 1];
            end
         else
            begin
            result:= myarray[x] * myarray[x + 1] + myarray[y] * myarray[y + 1];
            if result > maxresult then
               sumpos:= myarray[x] + myarray[x + 1] + myarray[y] + myarray[y + 1];
            end;
         end;
var n, i, j, rposi, rposj, sumpos, sumthis: integer; myarray: massive; fin, fout: text; result, maxresult: longint;
begin
{Обработка данных из входного файла}
assign(fin, 'fin.txt'); assign(fout, 'fout.txt');
reset(fin);
readln(fin, n);
for i:= 1 to n do
    readln(fin, myarray[i]);
close(fin);

maxresult:= -maxlongint;
{Обработка массива}
for i:=1 to (n-2) do
    begin
    for j:=i+1 to (n-1) do
        begin
        calculate(myarray, i, j, maxresult, result, sumpos);
        if result > maxresult then
           begin
           maxresult:= result;
           rposi:= i;
           rposj:= j;
           end;
        {Выбор лучшего варианта в случае, когда суммы умножений равны}
        if result = maxresult then
           begin
           if j = i+1 then
              begin
              sumthis:= myarray[i] + myarray[j] + myarray[j + 1];
              end
           else
               begin
               sumthis:= myarray[i] + myarray[i + 1] + myarray[j] + myarray[j + 1];
               end;
           if sumthis > sumpos then
              begin
              rposi:= i;
              rposj:= j;
              end;
           end;
        end;
    end;
{Переприсваивание элементов массива, задействованных в умножении}
myarray[rposi]:= maxresult;
myarray[rposi+1]:= 0; myarray[rposj]:= 0; myarray[rposj+1]:= 0;
{Вычисление суммы}
maxresult:= 0;
for i:= 1 to n do
    maxresult:= maxresult + myarray[i];
{Запись данных в выходной файл}
rewrite(fout);
write(fout, maxresult);
close(fout);
readln;
end.