program prog;
var x,y:real;
begin
write('Введите x: '); readln(x);
if x = 2 then write('Уравнение не имеет решения при x = 2.')
else write('y = ', 1/(sqr(x)+1)+1/(x-2):0:3)
end.
program prog;
var x,y:real;
begin
write('Введите x: '); readln(x);
if x = 2 then write('Уравнение не имеет решения при x = 2.')
else write('y = ', 1/(sqr(x)+1)+1/(x-2):0:3)
end.