{* Задача 331 *}

Unit ZADACHA331;
Interface
Implementation
Begin
 writeln('Известно количество выпущенной продукции тремя заводами за первый квартал (помесячно). Найти среднемесячное количество выпущенной продукции для каждого завода. Вывести массив в матричной форме. ');
End.

Program zadacha331;

Uses zadacha331.pas; {* Эту строку можно удалить *}
Uses crt; {* Подключение модулей *}
Var {* Необходимые переменные *}
  a : Array[1..3, 1..3] Of integer;
  i : real;
  j : real;
  s : real;
Begin
  For i := 1 To 3 Do {* Цикл для i => [1 .. 3] *}
    For j := 1 To 3 Do {* Увеличиваем j от 1 до 3 с шагом 1 *}
    Begin
      write (‘A(‘, i,’,’, j,’) = ’);
      readln (A[i, j]);
    End;
  writeln (‘matritsa A’);
  For i := 1 To 3 Do {* Цикл для i => [1 .. 3] *}
  Begin
    For j := 1 To 3 Do {* Переменная j увеличивается с 1 до 3 *}
      write (a[i, j] : 8,’ ‘);
    readln; {* Ждем нажатия Enter *}
  End;
  For i := 1 To 3 Do {* Переменная i увеличивается с 1 до 3 *}
  Begin
    j := 1;
    s := (a[i, j] + a[i, j + 1] + a[i, j + 2]) / 3;
  End;
  writeln (‘s := ’, s : 6 : 2);
  readln; {* Ждем нажатия Enter *}
End.