1.
var a,b: integer;
begin
  readln(a, b);
  writeln('Среднее арифметическое кубов ', a, ' и ', b, ' = ', (a*a*a+b*b*b)/2);
  writeln('Среднее геометрическое |', a, '| и |', b, '| = ', sqrt(abs(a)*abs(b)));
end.


2.
var a, x, y: real;
begin
  readln(x, y);
  a:=Exp(x)-(sqr(y)+12*x*y-3*sqr(x))/(18*y-1);
  writeln(a);
end.


3.
var y, x:real;
function f(x:real):real;
begin
  if x<6 then f:=1/sqrt(exp(x))
  else if x>7 then f:=2*sin(x/2)
  else f:=3*x-1;
end;
begin
  readln(x);
  y:=f(x);
  writeln(y);
end.


4.
var y, x:real;
function f(x:real):real;
begin
  if x>=4 then f:=x*sin(3*x)
  else if x<=-4 then f:=tan(2*x)
  else f:=sin(3+x);
end;
begin
  readln(x);
  y:=f(x);
  writeln(y);
end.


5.
const
  x0=-0.5;
  x1=0.5;
  step=0.1;
var
  i: integer;
function f(x:real):real;
begin
  f:=sqrt(1-sqr(x))
end;
begin
  for i:=0 to trunc((x1-x0)/step) do
    writeln('f(', x0+i*step, ') = ', f(x0+i*step))
end.


6.
var i: integer;
begin
  for i:=1 to 100 do
    writeln(i)
end.


7.
var i, sum: integer;
begin
  for i:=10 to 99 do
    sum:=sum+i;
  writeln(sum)
end.