Восстановите двоичные цифры, на месте которых в ниже арифметических примерах стоит знак «*»: **0*0*1**1 + 10111*10**= 100*1*00010

Для решения этого задания надо знать как складываются двоичные числа: 0+0 = 0, 0+1 = 1, 1+0 = 1, 1+1 = 10.
Запишем этот пример в столбик и просто подберём числа, для уверенности можно сложить эти двоичные числа, чтобы знать что мы не ошиблись. Начинаем подбирать числа с конца, т.к. при сложении в столбик мы складываем с конца.
Видим складываются числа 1 и * и получается 0, это значит что под звёздочкой число 1, 1+1=10, 0 пишем 1 в запоминаем
Потом складываются цифры * и * и 1 (та что мы запомнили) в ответе получается 1, значит под звёздочками 0. 0+1 = 1
Далее складывается * и 0, в ответе 0, значит под звёздочкой 0.
и так далее. 

Свою запись прикреплю в приложении.

ответ: 0101011001 + 1011101001 = 10001000010

P.S. Все нули, которые стоят перед первой единицей в числе, можно опустить т.к. они незначащие. То есть число 0101011001 можно записать так 101011001 

Uses graphABC;procedure samolet(x:integer);
begin
setpencolor(clblack);
line(3+x,160,3+x,200);     // зад
line(3+x,160,30+x,180);
line(3+x,200,88+x,205);
line(30+x,180,100+x,175);
line(125+x,176,170+x,200);
line(170+x,200,172+x,202);
line(172+x,202,170+x,204);
line(170+x,204,115+x,205);
line(120+x,195,85+x,255);   //крыло
2line(85+x,255,75+x,258);
line(75+x,258,90+x,195);
line(95+x,175,105+x,125);       // крыло
line(105+x,125,116+x,128);
line(125+x,175,116+x,128);
setpencolor(clblue);          //пилот
floodfill(135+x,190,clred);
line(135+x,182,135+x,192);
line(135+x,192,158+x,194);
end;
var x:integer;
begin
lockdrawing;
for x:=1 to 640 do      //движения 
begin 
clearwindow; 
 samolet(x); 
sleep(10); 
redraw end;end.

Const l = 5;
var
a: array[1..l] of integer;
d: array[1..l] of real;
i, otr, k, m: integer;
begin
otr:=0; k:=0; m:=0;
//считаем массив а
for i:=1 to l do
  begin
    readln(a[i]);
    //если ввели положительное число,увеличим перем. otr на 1
    if a[i] < 0 then
      inc(otr);
    //если ввели отрицательное число,увеличим перем. k на 1
    //и к переменной m прибавим элемент
    if a[i] > 0 then
      begin
        inc(k);
        inc(m, a[i]);
      end;
  end;
//заполним массив d
for i:=1 to l do
  //если индекс четный, присвоим элементу otr
  //иначе присвоим среднее арифметическое
  if i mod 2 = 0 then
    d[i] := otr
  else
    d[i] := m/k;
end.