Question

var

a,b,c:integer;

begin

a:=−39;

b:=abs(a);

writeln('abs(−39)=',b);

c:=sqr(b);

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

c:=sqr(b+b);

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

end.

Answer 1

Что мешает скачать (бесплатно) программу и выполнить задачу?

abs(−39)=39
sqr(b)=1521
sqr(b+b)=6084