14Прочитайте в хрестоматии 13ю главу романа.Обьясните ее название.Какие отношения сложились между Чудиновым и Наташей? Подтвердите ответ цитатами из текста данной главы Инфор бжб жауап ​

Var a: array[1..100] of integer;
    i,n,bg,nd,s: integer;
begin
  write('n = '); readln(n);
  randomize;
  bg:=0;  nd:=0;
  for i:=1 to n do 
  begin
    a[i]:=random(10);
    write(a[i],' ');
    if a[i]=0 then
       if (bg>0) and (nd=0) then nd:=i
       else if bg=0 then bg:=i;
  end; 
  writeln;
  if bg+nd>1 then
  begin
    if (bg mod 2=0) then inc(bg)
    else bg:=bg+2;
    if (nd mod 2=0) then dec(nd)
    else nd:=nd-2;
    writeln('начало: ',bg,'  конец: ',nd);  
    s:=1;
    repeat
      s:=s*a[bg];
      bg:=bg+2;
    until bg>nd;
    writeln('произведение: ',s);
  end
  else writeln(0);
end.

n = 15
4 4 7 0 3 5 6 1 1 8 8 4 0 1 9 
начало: 5  конец: 11
произведение: 144

Const n=6;
var x:array[1..n] of integer=(-1, 1, 2, -2, -3, 3);
y,z:array[1..n] of integer;
i,i1,i2:integer;
begin
for i:=1 to n do write(x[i]:3);
writeln;
i1:=0; i2:=0;
for i:=1 to n do
 if x[i]>0 then begin i1:=i1+1; y[i1]:=x[i]; end
 else if x[i]<0 then begin i2:=i2+1; z[i2]:=x[i]; end;
writeln('  Y:  Z:');
for i:=1 to n do
 if (i1>=i)and(i2>=i)
  then writeln(y[i]:3,z[i]:4)
  else if i1>=i then writeln(y[i]:3)
   else if i2>=i then writeln(z[i]:7);
end.

Результат:
 -1  1  2 -2 -3  3
  Y:  Z:
  1  -1
  2  -2
  3  -3