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

**Цель:** Цель данной задачи - понять, как работает данный фрагмент кода на языке программирования Pascal и определить, что будет выведено на экран. **Объяснение:** 1. Начинаем с объявления переменных `sum` и `i`, которые обе являются целочисленными (integer). 2. Устанавливаем начальное значение `sum` равным 0 и `i` равным 10. 3. Запускаем цикл `while`, который будет выполняться до тех пор, пока `i` больше 5. 4. Внутри цикла увеличиваем значение `sum` на 3 (sum := sum + 3) и уменьшаем `i` на 2 (i := i - 2). 5. Из-за строковой ошибки `i:=1-2;` программа будет устанавливать `i` равным -1 после первой итерации цикла (10-2 = 8; 8-2 = 6; 6-2 = 4; 4-2 = 2; 2-2 = 0; 0-2 = -2). 6. После выполнения `while` цикла сравниваем переменную `i > 5`, она становится равной значению `3 > 5`, следовательно, выходим из цикла. 7. Выводим результат на экран с помощью `writeln(sum)`. 8. Таким образом программа выведет на экран результат сложения переменных внутри цикла, в данном случае, сумма будет равна 15. **Итог:** На экран будет выведено число 15.