Написать программу которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика.Параметр R вводится с клавиатуры
program Curve;
var x, y, r: real;
begin
repeat
write('R = ');
readln(r)
until r >= 0;
write('x = ');
readln(x);
if (x < -6 - r) or (x > 9) then y := 0
else if x < -6 then y := -sqrt(sqr(r) - sqr(x + 6))
else if x < -3 then y := x + 3
else if x < 0 then y := sqrt(sqr(3) - sqr(x))
else if x < 3 then y := 3 - x
else if x <= 9 then y := (x - 3) / 2;
writeln('y = ', y);
readln
end.