Дан целочисленный двумерный массив, размерности n x m. Вывести его элементы, индексы которых являются степенями двойки

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.