НАПИСАТЬ ПРОГРАММУ В ПАСКАЛЕ ДЛЯ ВЫЧЕСЛЕНИЯ ЭТОГО ДРОБНОГО УРАВНЕНИЕ y=
var y,x:real;
z:real;
begin
read(x,z,y);
y=(sqr(x)-sqrt(1+x))/(sqr(z)*z-y);
writeln(y);
end.