Умова завдання:
Напиши оператор присвоювання, який реалізує таку дію:
подвоїти значення змінної а
Вибери у списку оператор, що реалізує цю дію:
a = a ** 2
c=a*2
a = a*2
​

х = log₂ n;

х = log₂ 12 бит.

program fasf;

var

n,q: integer;

begin

write('введите этаж: ');

readln(n);

q: =n*4;  

writeln('квартиры: ',q,q-1,q-2,q-3);

end. 

как я поняла амур надо соединить с теми множествами в которые слово входит.

в множество слов, множество названий рек,множество слов на букву а входит 

var

  a,b: longint;

begin

  readln(a,b);

  while a> 0 do

  begin

    if a mod 10=b then

  begin

    writeln('est');

    halt;

  end;

  a: =a div 10;

end;

writeln('net');

end.