Var a,b,c:integer; begin a:=−35; b:=abs(a); writeln('abs(−35)=',b); c:=sqr(b);...

Question

Var
a,b,c:integer;
begin
a:=−35;
b:=abs(a);
writeln('abs(−35)=',b);
c:=sqr(b);
writeln('sqr(b)=',c);
c:=sqr(b+b);
writeln('sqr(b+b)=',c);
end.

При запуске программы вывод на экран:
abs(−35)=
sqr(b)=
sqr(b+b)=

Answer 1

Примерно так:

abs(−35) = 35
sqr(b) = 1225
sqr(b+b) = 4900