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

Pascalprogram korni; uses crt; var a, b, c, x1, x2,d: real; beginwrite ('vvedite koeffecienti uravnenia'); readln (a,b,c); d: =sqr (b) -4*a*c; if d>0 thenbeginx1: =(-b)+sqrt (d) / (2*a); x2: =(-b) -sqrt (d) / (2*a); write ('x1=',x1,'x2=',x2); end; if d<0 then write ('kornei net') elsebeginx1: =(-b) / (2*a); write ('x=',x1); end; readln; end.