{* Задача 425 *}

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

Program lab42;

Uses zadach425.pas; {* Эту строку можно удалить *}
Uses Crt; {* Вызов внешних функций *}
Type {* Создание новых типов данных *}
  PR = Array[1..3, 1..3]Of integer;
  Nazv = Array[1..3] Of String[6];
Var {* Необходимые переменные *}
  r    : PR;
  nv   : Nazv;
  i    : integer;
  j    : integer;
  S    : real;
  sred : real;
Begin
  ClrScr; {* Стираем всё с экрана *}
  For i := 1 To 3 Do {* Переменная i увеличивается с 1 до 3 *}
  Begin
    writeln('vvedite nazvanie ' , i, '-ogo zavoda');
    readln(nv[i, j]);
    Begin
      S := 0;
    End;
    For j := 1 To 3 Do {* Цикл для j => [1 .. 3] *}
    Begin
      writeln('vvedite kolichestvo produkcii za '  , j, '-yii mesjac');
      readln(r[1, j]);
      S := S + r[1, j];
    End;
    writeln('vsego S=  ', S : 8:2);
    Begin
      sred := S / 3;
      writeln('srednemesyachnoe kolichestvo-  ', sred : 8:2);
    End;
    
  End;
  readln; {* Ждем подтверждения пользователя *}
End.