Ответ:если не ошибаюсь то это правильный код

Объяснение:

uses Crt;var x, y, R: real;beginClrScr;Write(' X = ');  ReadLn(X);Write(' R = ');  ReadLn(R);if x<=-R then y:=-3  else    if (x>=-R) and (x<=R) then y:=-sqrt(R*R-x*x) else       if (x>R) and (x<6) then  y:=3+6*(x-6)/(R-6) else          if (x>=6) then y:=(x-9);ReadLn;end.