hi sir

var
    a : integer;
    b : integer;
    c : integer;
    d : double;
    e : double;
    X1 : double;
    X2 : double;

    number, squareRoot : Extended;

begin
    a := 1;
    b := 5;
    c := 6;

    d := (b * b - 4 * a * c);
    e := sqrt(d);

    X1 := (-1 * b+e) / (2 * a);
    X2 := (-1 * b-e) / (2 * a);

    writeln('X1 = ', X1);
    writeln('X2 = ', X2);
end.