program PascalGuru;
 
var A,B:array[1..12] of real; {объявление переменных массивов}
    i:integer;     {переменная для цикла}
    summa,pr:real; {переменные суммы и произведения}
    zamena:real;   {переменная "временный контейнер" замен}
 
begin
writeln ('Vvedite massiv B iz 12 elementov:');
for i:=1 to 12 do begin write ('B[',i,']='); readln (B[i]); end; {Ввод массива B с клавиатуры}
 
writeln ('Vot vvedennyy vami massiv B: ');
for i:=1 to 12 do write (B[i]:6:2,'  '); {Вывод введенного массива B на экран}
writeln; writeln;
{***************************************************************}
 
if B[1]>0 then A[1]:=B[1] else A[1]:=5; {присваиваем значение 1-го эл-та массиву "A"}
 
for i:=2 to 11 do    {запускаем цикл для заполнения массива "A" }
               begin
               summa:=B[i-1]+B[i+1]; {считаем сумму пред. и последующего эл-та}
               pr   :=B[i-1]*B[i+1]; {считаем произведение пред. и последующего эл-та}
               if summa>pr then zamena:=summa else zamena:=pr; {определаем что из них больше}
               A[i]:=zamena; {MAX число записываем в массив A}
               end;
 
 
writeln ('____Vot polucennyi massiv A: ');
for i:=1 to 11 do write (A[i]:6:2,'  ');  {Выводим массив А на экран}
 
 
readln;
end.