На каждой итерации цикла m уменьшается на 2, и это продолжается до тех пор, пока m не станет меньше 6. Так как изначально m = 15, то потребуется пять итераций, в итоге m будет равно 15 - 2*5 = 5.
На каждой итерации n увеличивается вдвое, всего итераций 5, значит, после выполнения фрагмента алгоритма n будет равно 1 * 2^5 = 32.
Ответ. m = 5, n = 32.
// PascalABC.NET 3.0, сборка 1160 от 05.02.2016
begin
SeqRandom(ReadInteger('n='),1,99).Println
end.
<u><em>Тестовое решение:</em></u>
n= 30
8 39 37 3 4 57 33 31 44 12 32 80 14 19 73 64 81 82 36 6 48 12 84 81 6 66 36 51 40 69
1кбайт=1024байт
1гбайт=1024кбайт=1024*1024байт=1048576байт
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadArrReal(8);
a[::-1].Println
end.