Дам 30 баллов!!!
Напишите программу, позволяющую вычислить значение функции

Var
x:real;
Begin
Write('x = ');ReadLn(x);
if x>-3 then WriteLn('y = ',1/(x*x+1))
else WriteLn('y = 9')
End.