Написать программу, которая по введенному значению аргумента вычисляет значение функции,...

Function Foo(x: real): real;
begin
if (-9 <= x) and (x <= -5) then<br> result := 2 - Sqrt(4 - Sqr(x + 7))
else if (-5 <= x) and (x <= -4) then<br> result := 2
else if (-4 <= x) and (x <= 0) then<br> result := -(1 / 2) * x
else if (0 <= x) and (x <= Pi) then<br> result := Sin(x)
else if x >= Pi then
result := x - Pi;
end;

var
x: real;

begin
writeln('x =');
readln(x);
if x < -9 then
begin
writeln('функция не определена в этой области');
exit
end
else Writeln('y = ',Foo(x));
end.