مسئله پيدا كردن ريشه هاي معادله درجه دوم

کد:
کد:
input a,b,c
let delta=(b*b)-(4*a*c)
if delta<0 then
print "there is no root"
else if delta=0 then
r1= -b/(2*a)
print "the root is",r1
else if delta>0 then
r1=(-b+sqr(delta))/(2*a)
r2=(-b-sqr(delta))/(2*a)
print "the roots are",r1,r2
end if