Программа

Program Arithmetic;
{ Вычисление 
     (Sum(Xi)+Sum(Yj))
  Z=───────────────────
     (Sum(Xi)*Sum(Yj))

  X(15),Y(10) - массивы  }
Type Array15=array[1..15] of real;                    { Подготовка типов для }
     Array10=array[1..10] of real;                    { переменных и функций }
Var X:Array15;                                           { Описание массивов }
    Y:Array10;
    Z:real;                                                      { Результат }
    i:byte;                                                        { Счетчик }
Function SumX(a:Array15):real;      { Функция набора суммы элементов массива }
  Var i:byte;                                                      { Счетчик }
      Sum:real;                     { Внутренняя переменная для набора суммы }
  Begin
    Sum:=0;                                                { Обнуление суммы }
    for i:=1 to 15 do Sum:=Sum+a[i];                           { Набор суммы }
    SumX:=Sum                                 { Определение значения функции }
  End;
Function SumY(a:Array10):real;      { Функция набора суммы элементов массива }
  Var i:byte;                                                      { Счетчик }
      Sum:real;                     { Внутренняя переменная для набора суммы }
  Begin
    Sum:=0;                                                { Обнуление суммы }
    for i:=1 to 10 do Sum:=Sum+a[i];                           { Набор суммы }
    SumY:=Sum                                 { Определение значения функции }
  End;
BEGIN
  WriteLn;                                                  { Пропуск строки }
  for i:=1 to 15 do                                   { Ввод первого массива }
    Begin
      Write('Введите элемент X[',i,'] ');
                                        { Приглашение ввести элемент массива }
      ReadLn(X[i])                                   { Ввод элемента массива }
    End;
  for i:=1 to 10 do                                   { Ввод первого массива }
    Begin
      Write('Введите элемент Y[',i,'] ');
                                        { Приглашение ввести элемент массива }
      ReadLn(Y[i])                                   { Ввод элемента массива }
    End;
  Z:=(SumX(X)+SumY(Y))/(SumX(X)*SumY(Y));
  WriteLn('Ответ: ',Z)
END.