Код программы:
var a, b, c, y: real;
begin
writeln('Введите a');
readln(a);
writeln('Введите b');
readln(b);
writeln('Введите c');
readln(c);
y:= (b+sqrt(b*b+4*a*c))/(2*a) - a*a*c+b;
writeln('y = ', y);
end.
