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

Program func; var x,y:real; begin writeln('Введите значение аргумента'); readln(x); if(x<=-3) then y:=9 else y:=1/(sqr(x)+1); writeln('Значение функции= ', y); readln(); end.

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