{* Задача 337 *}

Unit ZADACH337;
Interface
Implementation
Begin
 writeln('Известен план выпуска компьютеров и кол-во выпущенных компьютеров тремя фирмами за три месяца. Определить в каком месяце не был выполнен план третьей фирмой. ');
End.

Program comp;

Uses zadach337.pas; {* Эту строку можно удалить *}
Type {* Создание новых типов данных *}
  firm = Array[1..3, 1..3] Of real;
Var {* Объявление переменных *}
  i    : integer;
  j    : integer;
  vip  : integer;
  t    : integer;
  mes  : firm;
  plan : real;
  k    : real;
Begin
  For i := 1 To 3 Do {* Переменная i увеличивается с 1 до 3 *}
    For j := 1 To 3 Do {* Переменная j увеличивается с 1 до 3 *}
    Begin
      k := 0;
      writeln('vvedite firmu');
      readln(mes[i, j]);
    End;
  writeln('vvedite plan');
  readln(plan);
  writeln('vvedite vipusk firmi');
  readln(vip);
  writeln('vvedite mesac');
  readln(t);
  For i := 1 To 3 Do {* Увеличиваем i от 1 до 3 с шагом 1 *}
    If vip = plan Then
      write('plan vipolnen=', mes[i, j]);
  writeln; {* Пропускаем одну строку *}
  readln; {* Ждем подтверждения пользователя *}
End.