В результате выполнения фрагмента программы while0 do begin write (2*(n mod 10)+1); n:=n...

1) 716, 2 * 6 + 1 = 13, n = 71;

2) 638, 2 * 8 + 1 = 17, n = 63;

3) 386, 2 * 6 + 1 = 13, n = 38;

4) 836, 2 * 6 + 1 = 13, n = 83.

Вариант 2) дальше не рассматриваем.

При втором прохождении цикла:

1) 71, 2 * 1 + 1 = 3, n = 7;

3) 38, 2 * 8 + 1 = 17, n = 3;

4) 83, 2 * 3 + 1 = 7, n = 8.

Варианты 1) и 3) отбрасываем.

Проверяем, получится ли в варианте 4) число 17.

4) 8, 2 * 8 + 1 = 17, n = 0 (цикл останавливаеся).

Ответ: 4) 836.