INPUT "Dame A, B, C"; A, B, C

    D = B ^ 2 - 4 * A * C

    IF D < 0 THEN

       XR = -B / (2 * A)

       XI = SQR(-D) / (2 * A)

       PRINT "X1=", XR, "+", XI, "i"

       PRINT "X2=", XR, "-", XI, "i"

    ELSE

       X1 = (-B + SQR(D)) / (2 * A)

       X2 = (-B - SQR(D)) / (2 * A)

>

       PRINT "X1=", X1

       PRINT "X2=", X2

   END IF

   END