Ребят помогите)) ax в квадрате +bx+c=0 найти корни, решения ...

Motes

program kvurav;uses crt;var a,b,c:integer;d,x,x1,x2:real;begin

Clrscr; writeln('Введите коэффициент при Х в квадрате (а)'); readln(a); writeln('Введите коэффициент при Х (b)'); readln(b); writeln('Введите число С‘'); readln(c); D:=sqr(b) - 4 * a * c; writeln('Дискриминант = ',D:4:2); if d>=0 then begin d:=sqrt(d); x1:=(-b+d)/2*a; writeln('X1 = ', x1:4:2); if d>0 then begin x2:=(-b-d)/2*a; writeln('X2 = ', x2:4:2); end; end else writeln('Дискриминант меньше нуля - корней нет');readln;end.