Pascal Ecuación de 2do Grado

PROGRAM ECUSEGUNGRA;

        USES WINCRT;

        VAR a,b,c:REAL;

        VAR resultado1,resultado2:REAL;

BEGIN

        {Calcula ecuaciones de segundo grado}

        ClrScr;

        WRITE ('ESTE PROGRAMA SIRVE PARA CALCULAR ECUACIONES ');

        WRITELN ('DE SEGUNDO GRADO');

        WRITELN (' ');

        WRITELN ('Introduzca: a, b y c: ');

        WRITELN (' ');

        READLN (a);

        READLN (b);

        READLN (c);

        resultado1:=(-b + sqrt(sqr(b) - 4*a*c)) / (2*a);

        resultado2:=(-b - sqrt(sqr(b) - 4*a*c)) / (2*a);

        WRITELN ('RESULTADO DE LA EXPRESION: ');

        WRITE ('VALOR 1: ');   WRITELN (resultado1:5:2);

        WRITE ('VALOR 2; ');   WRITE (resultado2:5:2);

END.