REM Kvadratna jednad`ba
CLS
REM ~itaj podatke
READ a, b, c
DATA 2,-1,3

REM ra~unaj determinantu
d = b * b - 4 * a * c
IF d > 0 THEN GOTO 200
IF d = 0 THEN GOTO 100
REM rje{enja su konjugirano kompleksna
im = SQR(-d) / (2 * a)
re = -b / (2 * a)
PRINT "REALNI DIO RJE[ENJA  RE="; re
PRINT "IMAGINARNI DIO RJE[ENJA IM="; im
END
100 REM oba rje{enja su realna i jednaka
x = -b / (2 * a)
x1 = x
x2 = x
PRINT "x1="; x1, "x2="; x2
END
200 REM rje{enja su realna i razli~ita
z = SQR(d)
x1 = (-b + z) / (2 * a)
x2 = (-b - z) / (2 * a)
PRINT "x1="; x1
PRINT "x2="; x2
END