НАПИСАТЬ ПРОГРАММУ В ПАСКАЛЕ ДЛЯ ВЫЧЕСЛЕНИЯ ЭТОГО ДРОБНОГО УРАВНЕНИЕ

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.