Exercício 20

{  Faça um programa que receba três valores a, b, c(coeficientes de uma equação do segundo grau)
   e calcule as raízes (x1 e x2)
}

program Baskhara;
var a,b,c : integer;
x1,x2,delta:real;

begin
     writeln('Insira o valor de A:');
     readln(a);
     while a = 0 do    {Repetição enquanto A não for diferente de 0}
         begin
             writeln('O valor de a nao pode ser 0, re-insira o valor de a:');
             readln(a);
         end;

     writeln('Insira o valor de B:');
     readln(b);
     writeln('Insira o valor de C:');
     readln(c);

     if(b = 0) and (c = 0) then {Verifica se B e C são iguais a 0}
         begin
             writeln('O resultado de x1 e x2 = 0');
         end
     else
         begin
             delta := (b*b)-4*a*c;  {Cálculo de Delta}

             if(delta >= 0) then     {Se delta maior que 0}
                 begin
                     x1 := (-b+sqrt(delta))/(2*a);
                     x2 := (-b-sqrt(delta))/(2*a);

                     writeln('O valor de Delta: ',delta:1:0);
                     writeln('----O valor de X1----');
                     writeln(x1:3:1);
                     writeln('----O valor de X2----');
                     writeln(x2:3:1);
                 end

             else {Delta menor que 0}
                 begin
                     writeln('Delta nao pode ser negativo!');
                 end;
         end;

readln();  {Pause}
end.