Я уж не силен в этой программе
но вот вроде должно получиться<span>
</span><span>var
a, b : array [1..16] of Integer;
begin
for var i := 1 to 16 do
a[i] := ReadLnInteger('a[' + i + '] =');
WriteLn('Массив A = ', a);
b := a;
Swap(b[2], b[5]);
Swap(b[4], b[9]);
Swap(b[7], b[15]);
Swap(b[9], b[16]); // повторяем обмен 9, если что?
WriteLn('Массив B = ', b);
end.</span>
1.
32+N*(7+a)+6 = 0
-35+N*(32+b)-22 = 0
N*(7+a) = -38
N*(32+b) = 57
НОД(38,57) = 19
N = 19
a = -38/19-7 = -9
b = 57/19-32 = -29
Ответ: N=19
2.
Формула в ячейке B3 после копирования:
=$А$1+B2
Абсолютный адрес ячейки $А$1 не меняется; относительный адрес ячейки C2 при копировании меняется на B2.
Блокнот это как я файл в нём хранится определённая информация
Var a,b:integer;
begin;
readln(a);
readln(b);
if a>b then write('Первое');
if a<b then write('Второе');
if a=b then write('=');
<span>end.</span>