найдите значение выражения: (x<14)&(x<13)¯¯¯¯¯¯¯¯¯¯¯¯ для числа x=1

агроном- Специалист в области агрономии. 

брейк - А. Быстрое и резкое падение цен. 
Б. Денежная, торговая несбалансированность, при которой дебет не равен кредиту или имеет место значительное дебетовое или кредитовое сальдо. 

видеоклип- (от англ. clip - стричь - обрывать) , интерпретация эстрадной, поп- или рок-песни, как правило, сприменением ""дробного"" монтажа и специальных эффектов. Распространениесвязано с появлением в 80-х гг. 20 в. кабельных музыкальных телеканалов ирынка бытовой видеоаппаратуры и видеокассет. Используется в т. ч. врекламных целях. 

дюйм- 1. Единица длины в системе русских мер равная 1/28 аршина (в Российском государстве до 1918 г.) . 
2. Единица длины в системе английских мер, равная 1/12 фута (2,54 см) . 

жалюзи- Многостворчатые ставни или шторы из узких пластинок, связанных между собой, применяемые для регулирования светового и воздушного потока. 

камбала- Промысловая морская рыба плоской формы с глазами на одной стороне головы. 

мультипликация- 1. Киносъемка последовательных фаз движения рисованных или объемных фигур, в результате которой при показе на экране у зрителя создается иллюзия их движения. // Объект такой съемки. 
2. разг. Фильм, сделанный посредством такой съемки. 

пастила- Кондитерское изделие тестообразного вида из протертых, сваренных с сахаром фруктов (обычно сбиваемых с яичным белком) . 

универсальный- - 1. Охватывающий всё или многое; всеобъемлющий. 
2. Обладающий разными знаниями, навыками; разносторонний. 
3. Выполняющий разнообразные функции.

Program esep;
var input,output:text;
n,i,j,g,nm,ans,t:integer;
ara:array[0..1000]  of integer;
ar,arq:array[0..1000] of integer;
ts,sum,a:integer;
begin assign(input,'f.in');
reset(input);  
assign(output,'f.out');
rewrite(output);
readln(input,a,n);
ans:=10000;
  for i:=1 to n do begin read (input,ar[i]);ts:=ts+2*ar[i];
end;    
if ts<a then writeln(output,'no') else  
begin
ara[1]:=3;
for i:=2 to 15 do
begin
ara[i]:=3*ara[i-1];
end;
 for i:=1 to ara[n] do
begin
if arq[n]<2 then
begin  
inc(arq[n]);
sum:=sum+ar[n];
inc(nm);  
end  else   begin   
g:=n;while arq[g]>1 do
 begin sum:=sum-ar[g]*arq[g];
dec(nm,arq[g]);arq[g]:=0;
dec(g);
end;
 inc(arq[g]);
sum:=sum+ar[g];
inc(nm);
end;
if sum=a then begin
 if nm<ans then ans:=nm;
end;
end;
 if ans>1000 then writeln(output,'yes') else
 writeln(output, ans); 
  end;
close(output);
close(input);
end.