Программа

CONST R1=10; {Параметр функции}
      R2=20; {Параметр функции}
VAR X:real; {Аргумент функции}
BEGIN
  Write('Введите X='); {Вывод приглашения ввести X}
  ReadLn(X); {Ввод X}
  if (X<-2*R1)or(X>2*R2) {Проверка диапазона определения функции}
  then WriteLn('Функция не определена')
  else if X<0 {Выбор ветви алгоритма}
       {Вычисление и вывод значения функции:}
       then WriteLn('Y=',-Sqrt(Abs(Sqr(R1)-Sqr(-R1-X))):5:2) 
       else WriteLn('Y=',Sqrt(Sqr(R2)-Sqr(R2-X)):5:2)
END.