{* Задача 451 *}

Unit ZADACH451;
Interface
Implementation
Begin
 writeln('Дано два массива a(n), b(n). Найти сумму элементов двух массивов, больших 1 (используя один цикл).');
End.

Program zadach451;

Uses zadach451.pas; {* Эту строку можно удалить *}
Const {* Предопределенные *}
  n = 10;
Var {* Объявление переменных *}
  a : Array [1..n] Of real;
  b : Array [1..n] Of real;
  s : real;
  i : integer;
Begin
  s := 0;
  For i := 1 To n Do {* Цикл для i => [1 .. n] *}
  Begin
    writeln ('Введите элементы первого массива');
    readln (a[i]);
  End;
  For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
  Begin
    writeln ('Введите элементы второго массива');
    readln (b[i]);
  End;
  For i := 1 To n Do {* Увеличиваем i от 1 до n с шагом 1 *}
  Begin
    If a[i] > 1 Then
      s := s + a[i];
    If b[i] > 1 Then
      s := s + b[i];
  End;
  writeln ('s=', s);
End.