EQUAÇÃO DO SEGUNDO GRAU

//ALUNO: Luiz Henrique Forino
//PROGRAMAÇÃO I, PROFESSOR PX
//AULA DIA 16/09/2014

Program EQUACAO_SEGUNDO_GRAU;
var a, b, c, delta, xi, xii : real;

 Begin
    writeln ('Digite o valor de A: ');
    readln (a);
    writeln ('Digite o valor de B: ');
    readln (b);
    writeln ('Digite o valor de C: ');
    readln (c);

    if a <> 0 then
        begin
            delta := (b*b)-4*a*c ;
        end
    else

    writeln ('Erro A = 0');

    if delta >= 0 then
        begin
            xi := (-b+sqrt(delta))/2*a;
            xii := (-b-sqrt(delta))/2*a;
             writeln (' O valor de X1 é ', xi:5:2, ' e o valor de X2 é ', xii:5:2, '.');
        end
    else

    writeln ('Erro: DELTA < 0');

 End.