{* Подсчет суммы элементов двухмерного массива *}

Unit SAMPLE09;
Interface
Implementation
Begin
 writeln('Подсчет суммы элементов двухмерного массива');
End.

Program pas;

Uses sample09.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  a : Array[1..10, 1..2] Of integer;
  s : longint;
  i : integer;
  j : integer;
Begin
  writeln('введете 20 элементов массива');
  s := 0;
  For i := 1 To 10 Do {* Увеличиваем i от 1 до 10 с шагом 1 *}
  Begin
    For j := 1 To 2 Do {* Переменная j увеличивается с 1 до 2 *}
    Begin
      readln( a[i, j] );
      s := s + a[i, j];
    End;
    
  End;
  writeln( 'Сумма элементов массива = ', s );
End.