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.