{* Задача 396 *}

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

Program zadach396;

Uses zadach396.pas; {* Эту строку можно удалить *}
Uses crt: {* Подключаем внешние файлы *}
Type {* Используемые типы *}
  vipusk = Array [1..3, 1..6] Of integer;
Var {* В работе нам потребуются переменные: *}
  P : vipusk;
  g : integer;
Begin
  clrscr; {* Очищаем экран *}
  Write (‘vvedite kolvo produkcii vipuschennoi ‘, I,’ - oi firmoi v ‘, j,’ - om mesyace’);
  Readln (p [I;
  j]);
End;
For i := 1to3 Do {* Переменная i увеличивается с 1 до 3 *}
  For j := 1 To 6 Do {* Увеличиваем j от 1 до 6 с шагом 1 *}
    If (p [I;
      j] > v) Then
Begin
  Writeln (‘plan nevip v ,’I,’ - oi firme v ‘, j,’ - om mesyace’);
  Writeln (‘obiom produkcii = ’, p[I, j],’);
End;
Readln; {* Ждем подтверждения пользователя *}
End..