Решить квадратное уравнение (a ≠ 0) ax2 + bx + c = 0. если d< 0, то вывести сообщение "корней нет".

Pascal

program korni;

uses crt;

var a, b, c, x1, x2,d: real;

begin

write('vvedite koeffecienti uravnenia');

readln(a,b,c);

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

if d>0 then

begin

x1:=((-b)+sqrt(d))/(2*a);

x2:=((-b)-sqrt(d))/(2*a);

write('x1 = ',x1,'x2 = ',x2);

end;

if d<0 then write('kornei net')

else

begin

x1:=((-b)/(2*a);

write('x = ',x1);

end;

readln;

end.

program name;

var

begin

вводишь a,b,c

потом отдельно х

if (a*x*x+b*x+c=0) and (a<>0) then 

begin

d;=sqr(b)-4a*c;

end;

if d<0 then begin

writeln('kornyey net');