Написать программу, которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика. (Turbo Pascal) а так же блок-схему ( необязательно)
Буду очень благодарен!
Заранее спасибо.

Можете еще раз написать программу?Эту задачу нужно решить в кратчайшие сроки тобишь сегодня.Простите еще раз что не указал.

В следующий раз пиши в какой IDE: FPC, PascalABC.NET

Не могу изменить ответ почему то, почему ты знаешь?

Изменить не можешь потому-что надо заново писать ответ.

и ответить не могу, нет поля для ввода

function Foo(x: real): real;begin   if (-9 <= x) and (x <= -5) then      result := 2 - Sqrt(4 - Sqr(x + 7))   else if (-5 <= x) and (x <= -4) then      result := 2   else if (-4 <= x) and (x <= 0) then      result := -(1 / 2) * x   else if (0 <= x) and (x <= Pi) then      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.