Даю 50 баллов тому кто решит.

===== PascalABC.NET =====

begin

var e, f, g, h: real;

Read(e, f, g, h);

var a := Sqrt(Abs(e - 3 / f) ** 3 + g);

var b := Sin(e) + Sqr(cos(h));

var c := 33 * g / (e * f - 3);

var d := b * b - 4 * a * c;

if d > 0 then

begin

d := Sqrt(d);

var x1 := (-b - d) / (2 * a);

var x2 := (-b + d) / (2 * a);

Writeln('x1=', x1, ', x2=', x2)

end

else if d = 0 then

Writeln('x=', -b / (2 * a))

else

Writeln('Нет корней')

end.