До таблиці внесено дані про опади протягом року. Якого місяця кількість впершк перевищила 120 мм?

---

program opady;
uses crt;
var a:array [1..12] of integer;
    i, j, k:integer;
    x:real;
begin
  clrscr;
  k:=0;
  for i:=1 to 12 do readln(a[i]); {вводимо кількість опадів}

  for i:=1 to 12 do {шукаємо номер потрібного нам місяця}
  begin
    if(a[i]>120) then k:=k+1;

    if( (a[i]>120) and (k=1)) then writeln(i); {виведення номеру місяця}
  end;

  readln(x); {зупинка програми}

end.