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.

program a;
uses
  SysUtils,Math;

var d,r,x,y:Double;
begin
  write('Введите значение d:');
  readln(d);
  write('Введите значение r:');
  readln(r);
  if abs(r)>=abs(d) then
  begin
    writeln('Абсолютное значение d должно быть больше r');
    readln;
    exit;
  end;
  write('Введите значение X:');
  readln(x);
  y:=0;
   if (x> -(d+r)) and (x<-d+r) then y:= -sqrt( abs(r*r - (d+x)*(d+x)));
   if (x< d+r) and (x> d-r) then y:= sqrt( r*r - (d-x)*(d-x));
   writeln ('y=',y:0:2);
  readln;

end.