Определите значение переменной p после выполнения следующего фрагмента программы: m:=13; n:=21; n:=2*m-n; if m<=n then p:=m+n else p:=4-m*n;

Давайте подробно разберем этот фрагмент программы и найдем значение переменной p. Шаг 1. Исходные данные ```plaintext m := 13 n := 21 ``` Значит, сразу после этих строк у нас: - m = 13 - n = 21 Шаг 2. Изменение n ```plaintext n := 2 * m - n ``` Подставляем текущие значения m и n: `n = 2 * 13 - 21` Вычисляем: `n = 26 - 21 = 5` Теперь значение n равно 5. Шаг 3. Условие и присвоение p ```plaintext if m <= n then p := m + n else p := 4 - m * n ``` Проверяем условие: m ≤ n? `13 ≤ 5?` — нет, условие ложно. Следовательно, выполняется ветка `else`: `p := 4 - m * n` Подставляем значения m = 13, n = 5: `p = 4 - 13 * 5` Вычитаем: `p = 4 - 65 = -61` **Ответ:** Значение переменной p после выполнения программы — **-61**.