Turbo pascal. Quadratic equation

The solution of the quadratic equation