Ответ:

Var a,b,c,y:real;

Begin

   write('Введите a,b,c: ');readln(a,b,c);

   y:=(b+sqrt(b*b+4*a*c))/(2*a)-(a*a*a)*c+1/sqr(b);

   writeln('y: ',y:0:2);

   readln;

End.

Объяснение:

(Pascal)