Const
 d=2.0;
 R=1.0;

Var
 x:real;

Function Y(z:real):real;
begin
 if (z<-(R+d)) or (z>(R+d)) or
    ((z>(-d+R)) and (z<(d-R))) then Y:=0
 else
  begin
   if z<0 then Y:=-Sqrt(Sqr(R)-Sqr(z+d));
   if z>0 then Y:=Sqrt(Sqr(R)-Sqr(z-d));
  end;
end;

Begin
 Write('x = ');
 Readln(x);
 Writeln('Y(',x:0:2,') = ',Y(x):0:2);
 Readln
End.