Уровень 4. 7. Составьте программу для решения задачи. Вычислить значение выражения: (x + y)5 / 8(x2 + y2)

```pascal program CalculateB; var x, y, b: real; begin Write('Введите значение x: '); Readln(x); Write('Введите значение y: '); Readln(y); b := Power(x + y, 5) / (8 * (Sqr(x) + Sqr(y))); Writeln('Значение b: ', b:0:2); Readln; end. ``` **Объяснение:** 1. **program CalculateB;** - Объявление программы 2. **var** - Объявление переменных, x и y для ввода, b - результат выражения. Тип **real**, так как в результате могут получиться дробные числа. 3. **Write** - Вывод приглашения к вводу x и y. 4. **Readln** - Чтение введенных значений. 5. **b := Power(x + y, 5) / (8 * (Sqr(x) + Sqr(y)));** - Вычисление выражения. Для возведения в степень используется функция **Power**. Для вычисления квадрата используется функция **Sqr** 6. **Writeln** - вывод результата. **0:2** - форматирование для вывода вещественного числа с двумя знаками после запятой. 7. **Readln** - Задержка экрана, чтобы результат был виден. **Ответ:** ```pascal program CalculateB; var x, y, b: real; begin Write('Введите значение x: '); Readln(x); Write('Введите значение y: '); Readln(y); b := Power(x + y, 5) / (8 * (Sqr(x) + Sqr(y))); Writeln('Значение b: ', b:0:2); Readln; end. ```