помогите срочно написать на завтра программу, Pascal,задача простая,но я туплю Опции

[NESC]

Даны действительные числа a1, a2 ... a16 . Найти максимальную сумму из (a1+a16; a2+a15; a8+a9) и минимальное произведение из (a1*a9; a2*a10; a3*a9; ... a8*a16) Smax и Pmin Вывести на память.

Очень прошу!помогите!!не успею до завтра,а это всё таки лаба(((

[NESC]

Итак,там только 3 суммы,задание я написал идентично с оригиналом,а в последовательности с умножением,там будет так:при нечётном первом а(а1 а3 а5...) 2 множитель всегда а9,а когда 1 множитель чётный то в номере будет шаг 2(а10 а12 а14 а16) лаба была сегодня,и на ней я сделал этот вариант,всё вышло,проблема лишь возникла в блок схеме для этой программы,и поэтому препод даже не посмотрела программу.Спасибо огромное нашему модератору,он вовремя подсказал,там осталось чуток подправить и она заработала
Вот код:

Код

Uses CRT;

Const n=16;

Var

a:array[1..n] of Integer;
b:array[1..n] of Integer;
i, j,s1,s2,s3,p,x,x1:Integer;



Begin
  Clrscr;
  Randomize;
  Writeln('Vvedem possledovatelnost chisel');

  For i:=1 to n do
   Begin
    a[i]:= random(20);
    Writeln(a[i]);
    Writeln;
   End;
   s1:=a[1]+a[16];
   s2:=a[2]+a[15];
   s3:=a[8]+a[9];
   if s1>s2 then
    if  s1>s3 then writeln('max summa=',s1)
    else writeln('max summa=',s3)
   else if s2>s3 then writeln('max summa=',s2)
   else writeln('max summa=',s3);
   i:=0;
   j:=9;
  { repeat


{for j:=9 to 16 do begin   }

  { i:=i+1;
   if i mod 2 = 0 then j:=j+1;
   begin
   b[i]:=a[i]*a[j];
   end;

   until (i>=n);}
   x1:=999;
   for j:=0 to 7 do begin
   j:=j+1;
   for i:=9 to n do begin
   i:=i+1;
   x:=a[j]*a[i];
      write(' ',x);
   if x1>x then x1:=x
   else
   end;end;

   writeln(' min proizvedenie=',x1);
  {
   i:=1;

   p:=b[1];
   for j:= 2 to n do
   if b[j]<p then begin
   p:=b[j];
   i:=j
   end;
   writeln('min proizvedenie=',p);}
  Readln;
End.