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.