{* Задача 395 *}

Unit ZADACH395;
Interface
Implementation
Begin
 writeln('Известен месячный план выпуска некоторой продукции и объемы выпущенной этой продукции заводом за год (помесячно). Определить, когда завод не выполнил план. Результат получить в виде: номер месяца и объем');
End.

Program zadach395;

Uses zadach395.pas; {* Эту строку можно удалить *}
Uses crt: {* Вызов внешних функций *}
Type {* Используемые типы *}
  zavod [1..12] Of integer;
Var {* Необходимые переменные *}
  Vipusk : zavod        I, p, v, k;
  Begin
  P := 50;
  k := 0;
  v := 0;
For i := 1to12 Do {* Цикл для i => [1 .. 12] *}
  Begin
1 : writeln (‘введи кол - во’, I,’ - go mesyaca’);
Readln (zavod [i]);
For i := 1to 12 Do {* Увеличиваем i от 1 до 12 с шагом 1 *}
  Begin
If vipusk [i]p Then
  k := I;
End;
For i := 1to 12 Do {* Переменная i увеличивается с 1 до 12 *}
  V := vipusk [i] + v;
Writeln (‘nomer mesyaca kogda plan ne vipolnen = ’, k,’);
Writeln (‘obiom vipolnennoi produkcii = ’, v,’);
Readln; {* Ждем подтверждения пользователя *}
End..