В среде программирования Pascal набери программу: program x1; var a,b,c:integer; begin α:=-18; b:=abs(a); writeln('abs(-18)=',b); c:=sqr(b); writeln('sqr(b)=',c); c:=sqr(b+b); writeln('sqr(b+b)=',c); end.

Программа на языке Pascal будет выглядеть так:

program x1;

var

a,b,c:integer;

begin

a:=-18;

b:=abs(a);

writeln('abs(-18)=',b);

c:=sqr(b);

writeln('sqr(b)=',c);

c:=sqr(b+b);

writeln('sqr(b+b)=',c);

end.

Этот код выполняет следующие действия:

1. Присваивает переменной "a" значение -18.
2. Находит абсолютное значение числа "a" и присваивает его переменной "b".
3. Выводит на экран значение abs(-18).
4. Возводит значение "b" в квадрат и присваивает результат переменной "c".
5. Выводит на экран значение sqr(b).
6. Возводит в квадрат сумму (b+b) и присваивает результат переменной "c".
7. Выводит на экран значение sqr(b+b).

Таким образом, программа позволяет вычислить абсолютное значение числа, его квадрат, а также квадрат суммы числа с самим собой.