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.