ANTICHAT — форум по информационной безопасности, OSINT и технологиям

function multiple(const a,b:Integer):Integer;
begin
  result := a*b;
end;

var
  A:Array [1..15]of integer;
  i,sum1,sum2,mult:integer;
begin

 // предполагается что массив уже заполнен
  Sum1 := 0;
  Sum2 := 0;
  for i := 1 to 12 do
    Inc(Sum1,a[i]);
  for i := 8 to 15 do
    Inc(Sum2,a[i]);
  mult := multiple(sum1,sum2);
  WriteLn(Mult);// Это твой ответ
end;