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

Question

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

---

Answer 1

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

Answer 2

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