Equação de Segundo Grau com Pascal

Este algorítmo é simples, ele mostra os tipos de raízes da equação:
1- "Se Delta maoir que 0", a equação terá duas raízes reais distintas.
2- "Se Delta igual a 0", a equação terá uma raiz dupla.
3- "Se Delta
Este algorítmo também utiliza adaptação da Fórmula de Bhaskara para mostrar as raízes.

PSEUDO LINGUAGEM:
programa equacao2grau
variáveis a,b,c,delta,r1,r2: real
início
leia(a)
leia(b)
leia(c)
delta <- a="" b="" c="" delta="" se=""> 0 entao
imprima(Esta equação possui duas raizes reais distintas.)
r1 <- a="" b-raizquadrada="" b="" delta="" dupla.="" ent="" equa="" fim="" imprima="" o="" possui="" r1="" r2="" ra="" raizquadrada="" se="" sen="" senao="" sta="" uma="" z="">imprima(Esta equação possui duas raizes complexas.)
fim se
Fim

PASCAL:
Program e2grau;
Var a,b,c,delta,r1,r2: real;
Begin
write('Digite o valor de a: ');
readLn(a);
write('Digite o valor de b: ');
readLn(b);
write('Digite o valor de c: ');
readLn(c);
delta:= (b*b)-(4*a*c);
if delta > 0 then begin writeln('Esta equação possui duas raizes reais distintas.');
r1:= (-b+sqrt (delta)) /2*a; //Calcula a primeira raíz utilizando o comando "SQRT"(Square Root, ou Raíz Quadrada) e calculando o valor da variável "delta".
r2:= (-b-sqrt (delta)) /2*a; writeln('Raiz 1: ',r1:0:2); //Exibe resultado da variável "r1" com espaçamento pré-definido.
writeln('Raiz 2: ',r2:0:2); end //Antes de "ELSE" não pode usar ";".
else if delta = 0 then
begin
writeln('Esta equação possui uma raíz dupla.');
r1:= (-b+sqrt (delta)) /2*a; writeln(' ');
writeln(' Raiz 1: ',r1:0:2);
end
else if delta <>writeln('Esta equação possui duas raizes complexas.');
End.

Para lembrar!

Equação de Segundo Grau é toda equação do tipo: ax²+bx+c. Para encontrar delta utilizamos a fórmula:
.

E utilizamos a Fórmula de Bhaskara para resolver as raízes:

Ex.
1) 3x²-7x+2=0
a=3, b=-7 e c=2

= (-7)²-4.3.2