Формула в электронных таблицах не может включать: числа текст имена ячеек знаки арифметических операций

Текст ? отмечай лучшим!

Const  nx = 20; mx = 20; var  x: array[1..nx, 1..mx] of integer;     i, j, n,m,q,r: integer; k: boolean;   b: array[0..nx] of integer; beginwriteln('введите число строк n '); read(n); writeln('введите число столбцов m '); read(m); b[0]: =1; if n > = m thenfor i : = 1 to n do beginb[i]: =b[i-1]*2; q: =n; endelsefor i : = 1 to m do beginb[i]: =b[i-1]*2; q: =m; end; write(b: 3);   randomize; writeln;   writeln('исходный массив');   for i : = 1 to n do begin    for j : = 1 to m do begin      x[i, j]: =random(10);       write(x[i, j]: 4);       end;     writeln;   end;   writeln; writeln;   for i : = 1 to n do begin    for j : = 1 to m do begin    for r: =0 to q do    if (i = b[r])or (j = b[r]) then k: = true;       if k = true then write(x[i, j]: 4)      else write('  ');       k: =false;     end;     writeln;   end;   end.

//элементы a[i,i] - элементы главной диагонали, в переменной p будем хранить их произведение. var  b: array[1..100, 1..100] of integer; i, j, n: integer;   p: longint; begin write('введите размерность: '); readln(n); p : = 1; for i : = 1 to n do  begin for j : = 1 to n do  begin        b[i, j] : = random(100);         write(b[i, j]: 3);       if i = j then p : = p * b[i, j]; end;   writeln;   end; writeln('произведение главной диагонали матрицы: ', p); end.