Написать программу, которая считает значение y при любом целом значении x (Паскаль) y = 1/(x+1)^2

program smth;

var x, y : real;

Begin

writeln ('Введите значение x');

readln (x);

y := 1 / sqr(x+1);

if (sqr(x+1) = 0) then

writeln ('Знаменатель = 0')

else

writeln ('Значение y = ', y);

end.

----------------------------------

Или

----------------------------------

program smth;

var x, y : real;

Begin

writeln ('Введите значение x');

readln (x);

if (x <> -1) then

Begin

y := 1 / sqr(x+1);

writeln ('Значение y = ', y)

end

else

writeln ('Знаменатель = 0');

end.