{* Задача31 *}

REM basic

'


10 INPUT “Введите a, b,c”;a, b, c 
20 If a=0 Then 120 
30 D=b^2-4*a*c 
50 If D>=0 Then 80 
60 PRINT”Уравнение не имеет решений” 
70 GoTo 150 
80 X1=(-b1+sqr(D))/(2*a) 
90 X2=(-b-sqr(D))/(2*a) 
100 PRINT “X1=”;X1, “X2=”;X2 
110 GoTo 150 
120 PRINT”Уравнение не квадратное” 
130 X=-c/b 
140 PRINT “X=”;X 
150 End