{* Задача 472 *}

Unit ZADACH472;
Interface
Implementation
Begin
 writeln('Дано 3 одномерных массива a, b, d длиной 20 элементов каждый. Описать подходящую функцию для облегчения решения задачи. Вычислить:

');
End.

Program zadach472;

Uses zadach472.pas; {* Эту строку можно удалить *}
Type {* Типы переменных *}
  mass = Array [1..20] Of integer;
Var {* Необходимые переменные *}
  a             : mass;
  b             : mass;
  c             : mass;
  d             : mass;
  h             : mass;
  i             : integer;
  p1            : integer;
  p2            : integer;
  p             : integer;
Function Pr(a : mass);
Var {* Необходимые переменные *}
  i : integer;
  p : integer;
Begin
  p := 1;
  For i := 1 To 20 Do {* Увеличиваем i от 1 до 20 с шагом 1 *}
    p := p * a[i];
  Pr := p;
End;
Begin
  writeln ('Введите 3 массива');
  For i := 1 To 20 Do {* Переменная i увеличивается с 1 до 20 *}
    read (a[i], b[i], d[i]);
  For i := 1 To 20 Do {* Увеличиваем i от 1 до 20 с шагом 1 *}
  Begin
    c[i] := b[i] + d[i];
    h[i] := b[i] - a[i];
  End;
  p1 := Pr(a);
  p2 := Pr(d);
  If p1 > p2 Then
    p := p1 - Pr(c)
  Else p := Pr(h) + p2;
    writeln ('p=', p);
End.