Algorítimo Pascal - Equação Quadrática

Crie um programa que resolva equações quadráticas e que tenha as seguintes funcionalidades:

1. Verifique se a equação é quadrática (A<>0);
2. Verifique se existe solução real (Δ>=0);
3. Mostre a raiz (Δ=0) ou as raízes (Δ<>0);

program RESPOSTA_1;

{$APPTYPE CONSOLE}

VAR

A, B, C, X1, X2: REAL;

DELTA: REAL;

BEGIN

WRITELN ('DIGITE A');

READLN (A);

WRITELN ('DIGITE B');

READLN (B);

WRITELN ('DIGITE C');

READLN (C);

IF A <> 0 THEN

BEGIN

DELTA:= B * B - 4 * A * C;

IF DELTA >=0 THEN

BEGIN

X1:=(- B + SQRT(DELTA)) / (2 * A);

X2:=(- B - SQRT(DELTA)) / (2 * A);

IF DELTA=0 THEN

WRITELN('RAIZ:',X1:10:5)

ELSE

BEGIN

WRITELN ('RAIZ',X1:10:5);

WRITELN ('RAIZ',X2:10:5);

END;

END

ELSE

WRITELN('NAO TEM SOLUCAO REAL');

END

ELSE

WRITELN('NAO E QUADRATICA!');

READLN;

END.