Program osadki;
	var a:array [1..12] of integer;
	    x,s,min,i,z:integer;
Begin
	min:=maxint;
	writeln ('Введи кол-во осадков в каждом месяце');
	 for x:=1 to 12 do begin
      	  readln a[x];              {вводим кол-во осадков за этот месяц} 
	  s:=s+a[x];                {суммируем} 
	  if a[x]<30 then z:=z+1;   {проверяем данный месяц на засушливость} 
	  if min>a[x] then begin min:=a[x]; i:=x; {ищем самый засушливый месяц}
	 end;
	writeln ('Засушливых месяцев: ',z,' Всего осадков выпало: ',s,' Самый засушливый месяц: ',i,' Средний уровень осадков: ',s div 12);
End.

Program osadki;
	var a:array [1..1000] of integer;
	    x,y,s,d:integer;
Begin
	randomize;
	 for x:=1 to 1000 do begin
          a[x]:=random(1000);         {заполняем массив случайными числами}
	 end;
	  for x:=1 to 999 do
           for y:=x+1 to 1000 do
            if a[x]+a[y]>max then begin max:=a[x]+a[y]; s:=a[x]; d:=a[y];  {поиск максимальной суммы}
	 end;
	writeln (' Числа, дающие максимальную сумму: ',s,' ',d);
End.