Elaborar um algoritmo que resolva uma equação do 2o grau (ax² + bx + c = 0).

Algoritmo

#incluir<biblioteca>
principal()
inicio
inteiro a,b,c,x1,x2,delta;
escreva("Digite a, b, c:");
leia(a,b,c);
delta ← (b*b)-(4*a*c);
se (delta >= 0)
inicio
x1 = (-b - raiz(delta))/(2*a);
x2 = (-b + raiz(delta))/(2*a);
escreva("As raízes sao: “,x1,x2);
fim
senão
escreva("Não existe raízes reais”);
fim