Var
 x,y,z:Real;

Function f(u,v:Real):Real;
begin
 If u*v>0 then f:=Ln(Abs(u))+Ln(Abs(v)) else f:=Abs(u+v);
end;

Begin
 Write('x= ');
 Readln(x);
 Write('y= ');
 Readln(y);
 z:=f(Sqrt(Abs(x))+y,x)+f(Exp(x),Abs(y));
 Writeln('z= ',z:0:5);
 Readln
End.

Var
 A,B,h,x:Real;
 n,i:Byte;

Function f(z:Real):Real;
begin
 f:=z*Ln(2)*Ln(z)/Ln(10);
end;

Begin
 Write('A= ');
 Readln(A);
 Write('B= ');
 Readln(B);
 Write('n= ');
 Readln(n);
 h:=(B-A)/(n-1);
 x:=A;
 for i:=1 to n do
  begin
   write(i:2,'   x= ',x:3:1,'   y= ');
   if Abs(x)=0 then writeln('Not defined!') else writeln(f(x):6:3);
   x:=x+h;
  end;
 Readln
End.