Coeficientii sunt a, b si c (ax^2+bx+c=0):
Acel discriminant D se numeste delta, dar tu poti inlocui delta cu D, daca vrei.
citeste a, b, c
delta <- b*b-4*a*c
daca delta < 0 atunci
scrie "Ecuatia nu are solutii reale"
altfel
daca delta = 0 atunci
rez <- -b/(2*a)
scrie "Radacina dubla ", rez
altfel
rez1 <- (-b-sqrt(delta))/(2*a)
rez2 <- (-b+sqrt(delta))/(2*a)
scrie rez1," ", rez2