Program Vetvleniya;
Uses Crt;
Var x,y1,y2,s1,s2,y_razrez,s_left,s_right: real;
Begin
Clrscr;
Write('x=');
Readln(x);
If((x>2.0) or (x<0))
  Then WriteLn('Введите, другое число от 0 до 2')
  Else
   begin
     If(x<>1.0)
       Then
        begin
          y1:=sqrt(1.0-(x-1.0)*(x-1.0));
          If(x<1.0)
             Then
               begin
                y2:=sqrt(1.0-x*x)-1.0;
                  s1:=(arctan(y1/(1.0-x)))/2.0-(y1*(1.0-x)/2.0);
                  s2:=x-((arctan(x/(1.0-abs(y2))))/2.0)-
                   (x*(1.0-abs(y2))/2.0);
             end
             Else
              begin
                  y2:=sqrt(1.0-(x-2.0)*(x-2.0))-1.0;
              s1:=(pi+(arctan(y1/(1.0-x))))/2.0+(y1*(x-1.0)/2.0);
              s2:=x-pi/2.0+(arctan((2.0-x)/(1.0-abs(y2))))/2.0+
                   (1.0-abs(y2))*(2.0-x)/2.0;
              end;
          s_left:=s1+s2;
          s_right:=2-s_left;
        end
      Else
       begin
        s_left:=1;
        s_right:=1;
        y1:=1;
        y2:=-1;
       end;
     y_razrez:=y1+abs(y2);
     Writeln('y_razrez=',y_razrez:3:2);
     Writeln('s_left=',s_left:6:3);
     Writeln('s_right=',s_right:6:3);

   end;

end.