Для данного 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
Блок-схема - в прилагаемом файле.
Оцени ответ
