program sum;
{$APPTYPE CONSOLE}
uses SysUtils;
var a, b, c, D: real;
begin
    write('Please Enter a: ');
    readln(a);
    write('Please Enter b: ');
    readln(b);
    write('Please Enter c: ');
    readln(c);
    D := b * b - 4 * a * c;
    if D > 0 then begin
        writeln('x =', (- b + sqrt(D))/ (2*a):8:3, ', ', (- b - sqrt(D))
        / (2*a):8:3 );
    end 
    else if D = 0 then begin
        writeln('x =', - b / (2*a):8:3 );
    end
    else begin
        writeln(  'x =', - b / ( 2*a ):8:3, ' + ', sqrt(-D) / (2*a):8:3, 'i ,', - b / (2*a):8:3, ' - ', sqrt(-D) / (2*a):8:3, 'i');
    end;
    readln
end.