{* Задача 400 *}

Unit ZADACH400;
Interface
Implementation
Begin
 writeln('

При заданных X₁, X₂, … X_n и Y₁, Y₂, … Y_n найти значение суммы:

');
End.

Program zadach400;

Uses zadach400.pas; {* Эту строку можно удалить *}
Uses Crt; {* Подключение модулей *}
Var {* В работе нам потребуются переменные: *}
  n   : integer;
  i   : integer;
  Sum : real;
  x   : Array [1..100] Of integer;
  y   : Array [1..100] Of integer;
Begin
  ClrScr; {* Очищаем экран *}
  Write ('Введите длину массива от 1 до 100: ');
  ReadLn (n);
  WriteLn('Заполните первый массив (целые числа): ');
  For i := 1 To n Do {* Цикл для i => [1 .. n] *}
  Begin
    Write('X', i, '= ');
    ReadLn(x[i]);
  End;
  Sum := 0;
  WriteLn('Заполните второй массив (целые числа): ');
  For i := 1 To n Do {* Цикл для i => [1 .. n] *}
  Begin
    Write('Y', i, '= ');
    ReadLn(y[i]);
    Sum := Sum + 2 / (x[i] + y[i]);
  End;
  Write('Результат вычислений: ', sum : 2 : 1);
  ReadLn; {* Ждем подтверждения пользователя *}
End.