На каждой итерации цикла m уменьшается на 2, и это продолжается до тех пор, пока m не станет меньше 6. Так как изначально m = 15, то потребуется пять итераций, в итоге m будет равно 15 - 2*5 = 5. На каждой итерации n увеличивается вдвое, всего итераций 5, значит, после выполнения фрагмента алгоритма n будет равно 1 * 2^5 = 32.
Var a,b: array[0..19] of Integer; i: Integer; begin for i:=0 to 19 do begin a[i]:=random(5)+1; b[i]:=random(5)+1; end; for i:=0 to 19 do begin if a[i]=b[i] then writeln('Номер: ',i,', значение: ',a[i]); end; end.