Var
 X,Y_razrez,S_left,S_right:real;

Function ArcCos(Xac:real):real;
begin
 if Xac=1 then ArcCos:=0 else
 if Xac=-1 then ArcCos:=Pi else
 ArcCos:=(Pi/2)-ArcTan(Xac/SQRT(1-Xac*Xac));
end;

Function Y1(x1:real):real;
begin
 Y1:=Sqrt(1-Sqr(x1));
end;

Function Y2(x2:real):real;
begin
 Y2:=-Sqrt(0.25-Sqr(x2+0.5));
end;

Function Y3(x3:real):real;
begin
 Y3:=Sqrt(0.25-Sqr(x3-0.5));
end;

Function Segm1_right(x1:real):real;
Var
 alph:real;
begin
 alph:=ArcCos(x1);
 Segm1_right:=alph/2-Y1(x1)*x1/2;
end;

Function Segm1_left(x1:real):real;
begin
 Segm1_left:=Pi/2-Segm1_right(x1);
end;

Function Segm2_right(x2:real):real;
Var
 alph:real;
begin
 alph:=ArcCos((0.5+x2)/0.5);
 Segm2_right:=alph*0.125+Y2(x2)*(0.5+x2)/2;
end;

Function Segm2_left(x2:real):real;
begin
 Segm2_left:=Pi*0.125-Segm2_right(x2);
end;

Function Segm3_right(x3:real):real;
Var
 alph:real;
begin
 alph:=ArcCos((x3-0.5)/0.5);
 Segm3_right:=alph*0.125-Y3(x3)*(x3-0.5)/2;
end;

Function Segm3_left(x3:real):real;
begin
 Segm3_left:=Pi*0.125-Segm3_right(x3);
end;

Begin
 Repeat
  Write('Enter X (X<-1 or X>1 to quit): ');
  Readln(X);
  If (X>=-1) and (X<=1) then
   begin
    if X=0 then
     begin
      Y_razrez:=1;
      S_left:=Pi*0.375;
      S_right:=Pi*0.125;
     end
    else
    if X<0 then
     begin
      Y_razrez:=Y1(X)-Y2(X);
      S_left:=Segm1_left(X)+Segm2_left(X);
      S_right:=Segm1_right(X)+Segm2_right(X)-Pi*0.125;
     end
    else
     begin
      Y_razrez:=Y1(X)-Y3(X);
      S_left:=Segm1_left(X)-Segm3_left(X)+Pi*0.125;
      S_right:=Segm1_right(X)-Segm3_right(X);
     end;
    Writeln('Y_razrez= ',Y_razrez:0:5);
    Writeln('S_left= ',S_left:0:5);
    Writeln('S_right= ',S_right:0:5);
   end;
 Until (X<-1) or (X>1);
End.