CLS
DATA 12,3.8,-9.6,12.2,7.1,-15.81
min = 1E+38
max = 9.999999E-39
FOR i = 1 TO 2
READ a, b, c
d = b ^ 2 - 4 * a * c
IF d >= 0 THEN
PRINT "uravnenie"; i
x = (-b + SQR(d)) / (2 * a)
PRINT "x1="; x
IF x > max THEN max = x
IF x < min THEN min = x
x = (b + SQR(d)) / (2 * a)
PRINT "x2="; x
IF x > max THEN max = x
IF x < min THEN min = x
END IF
NEXT
PRINT "max koren="; max
PRINT "min koren="; min
Тестирование выполнено в программе QB64 ( Скачать )