Const
 b=0.1185;
 x:Array[1..5] of Real=(0.0185,0.00088,0.0078,0.01155,0.1085);

Var
 a,S1,S2:Real;
 y:Array[1..5] of Real;
 i:Byte;

Begin
 a:=11.98;
 for i:=1 to 5 do
  a:=a+(b*x[i]-Sin(x[i]))/(b*x[i]+Cos(x[i]));
 S1:=0;
 for i:=1 to 3 do
  S1:=S1+(a*x[i]-Ln(x[i]))/(a*x[i]-b*Ln(x[i]));
 S2:=0;
 for i:=1 to 5 do
  S2:=S2+(a*x[i]-Ln(Sqr(x[i])))/(a*x[i]+b*Ln(Sqr(x[i])));
 for i:=1 to 5 do
  if a*x[i]<Ln(x[i]) then
   y[i]:=Cos(x[i])+Sin(x[i])+S1
  else
   y[i]:=(1-Cos(x[i]))/(1+Sin(x[i]))+S2;
 for i:=1 to 5 do
  writeln('x = ',x[i]:7:5,'     y = ',y[i]:0:5);
 readln
End.