Обозначим через m& n поразрядную конъюнкцию неотрицательных целых чисел m и n. например, 14& 5 = 11102& 01012 = 01002 = 4. для какого наименьшего неотрицательного целого числа а формула

Const   n=13; var   a: array[1..n] of integer;   i: integer;   p: longint; begin   randomize;   writeln('элементы массива');   p: =1;   for i: =1 to n do   begin       a[i]: =random(11)+5;       write(a[i]: 3);       if (i mod 2)=0 then p: =p*a[i]   end;   writeln;   writeln('произведение четных элементов равно ',p) end. тестовое решение: элементы массива   9 14  5 10  6 15 14 12 11  8  8 11 13 произведение четных элементов равно 2217600

1) program dasf; var a,b,i,s: integer; begin writeln('введите четырёхзначное число'); readln(a); for i: =1 to 4 do begin s: =a mod 10+s; a: =a div 10 end; writeln('сумма цифр четырёхзначного числа: ',s); end.2)program sgsgsdfg; var a,b,c,a1,b1,c1: real; begin writeln('введите а'); readln(a); writeln('введите b'); readln(b); writeln('введите c'); readln(c); if (a=b) or (a=c) then a1: =a*a  else a1: =a*2; if (b=a) or (b=c) then b1: =b*b  else b1: =b*2; if (c=a) or (c=b) then c1: =c*c  else c1: =c*2; writeln('полученные числа: а=',a1,' b=',b1,' c=',c1); end.3)  program afgsdg; var n,a,b,i: integer; begin; writeln('введите число'); readln(a); writeln('введите степень'); readln(n); b: =a; for i: =2 to n do    a: =a*b; writeln('число ',b,' в степени ',n,' равно ',a); end.