Для данного x вычислить значение функции:



Пожалуйста со схемой и самой программой. Заранее спасибо.

Программа для решения задачи:
var x,f:real;
begin
write('x=');readln(x);
if x<=-3 then f:=9 else f:=1/(x*x+1);
writeln('f(x)=',f:5:3);
end.

Пример:
x=-4
f(x)=9.000

Блок-схема - в прилагаемом файле.