В среде программирования Pascal набери программу: program x1; VAR a,b,c:integer; begin a:=-39 b:=αbd(a); written('ANS(-39)=',b); с:=sqr(b); writeIn('sqr(b)=',c); c:=sqr(b+b); writeIn('sqr(b+b)=',c); end. Запиши результат выполнения программы. ANS(-39)=? sqr(b)=? sqr(b+b)=?

Давайте разберем вашу задачу, связанную с программированием на языке Pascal. Я постараюсь объяснить каждую строку кода и вывести результат, который программа должна будет отображать. ### Программа: ```pascal program x1; VAR a, b, c: integer; begin a := -39; b := abs(a); writeln('ANS(-39) = ', b); c := sqr(b); writeln('sqr(b) = ', c); c := sqr(b + b); writeln('sqr(b + b) = ', c); end. ``` ### Пошаговое объяснение: 1. **Объявление переменных:** - `VAR` описывает переменные: `a`, `b` и `c` типа `integer`, то есть целые числа. 2. **Присвоение значения:** - `a := -39;` — здесь мы присваиваем переменной `a` значение -39. 3. **Использование функции `abs`:** - `b := abs(a);` — функция `abs` возвращает абсолютное значение. Для `-39` результат будет 39. Теперь `b` равно 39. 4. **Вывод значения:** - `writeln('ANS(-39) = ', b);` — выводит на экран строку "ANS(-39) = 39". 5. **Вычисление квадрата `b`:** - `c := sqr(b);` — функция `sqr` вычисляет квадрат своего аргумента. Квадрат 39 равен 1521, поэтому `c` теперь равно 1521. 6. **Вывод значения квадрата `b`:** - `writeln('sqr(b) = ', c);` — выводит "sqr(b) = 1521". 7. **Вычисление квадрата суммы `b + b`:** - `c := sqr(b + b);` — сначала мы рассчитываем `b + b`, что равно 39 + 39 = 78. Далее вычисляем квадрат 78, который равен 6084, и сохраняем это значение в `c`. 8. **Вывод значения квадрата `b + b`:** - `writeln('sqr(b + b) = ', c);` — выводит "sqr(b + b) = 6084". ### Результаты выполнения программы: Теперь подведем итоги и запишем результаты: - **ANS(-39) =** 39 - **sqr(b) =** 1521 - **sqr(b + b) =** 6084 Таким образом, ваша программа в Pascal выведет следующие результаты: ``` ANS(-39) = 39 sqr(b) = 1521 sqr(b + b) = 6084 ```