Var sum, i:integer; begin sum: =0; i:=10; while i>5 do begin sum: =sum+3; i:=1-2; end; writeln (sum) ; end.

**Цель:** Понять, как работает данный кусок кода и вычислить значение переменной `sum` после завершения цикла `while`. **Объяснение:** 1. **Инициализация переменных:** - `sum := 0;`: Переменная `sum` инициализируется значением 0. - `i := 10;`: Переменная `i` инициализируется значением 10. 2. **Цикл `while`:** - `while i > 5 do`: Цикл будет выполняться до тех пор, пока `i` больше 5. - `begin`: Начало блока кода, который будет повторяться. - `sum := sum + 3;`: К переменной `sum` прибавляется 3. Начальное значение `sum` равно 0, поэтому после первой итерации `sum = 0 + 3 = 3`. - `i := 1 - 2;`: Переменная `i` уменьшается на 1 и становится -1. - `end;`: Конец блока кода цикла. 3. **Итог:** - После первой итерации цикла `while`, `sum = 3`, `i = -1`. - Условие `i > 5` не выполняется, так как теперь `i = -1`. - Цикл завершается. 4. **Вывод значения `sum`:** - `writeln(sum);`: Значение переменной `sum` выводится на экран. - После завершения цикла `while` переменная `sum` равна 3. **Ответ:** После выполнения данного кода значение переменной `sum` равно 3.