помогите решить задачу Q BASIC

[Яеbz]

СОСТАВИТЬ ЗАДАЧУ ДЛЯ РЕШЕНИЯ КВАДРАТНОГО УРАВНЕНИЯ АХ^2+BX+C=0

[art2222]

А тут решать нечего

input a,b,c
d = b^2-4*a*c
if d=0 then print "x=";-b/2*a
if d>0 then
print "x1=";(-b-sqrt(d))/2*a
print "x2=";(-b+sqrt(d))/2*a
endif

вроде так, давно на бейске не писал.

[_==wolf==_]

наиацкейший школьнег 2009 года...