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

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.

var

  a, b, c, D, x1, x2: real; 

begin

  writeln('Введите коэффициент при х^2');

  readln(a); //Вводим коэффициент при x^2

  writeln('Введите коэффициент при x');

  readln(b); //Вводим коэффициент при х

  writeln('Введите свободный член');

  readln(c); //Вводим свободный член

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

  writeln('Дискриминант уравнения равен  ', D : 0 : 5); {Печатаем дискриминант и округляем его до 5 знаков после запятой}

  if D > 0 then 

  begin

    writeln('D > 0 => уравнение имеет два различных действительных корня:');

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

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

    writeln('x1 = ', x1 : 0 : 5, ', x2 = ', x2 : 0 : 5); {Считаем корни уравнения и печатаем их с округлением до 5 знаков после запятой}

  end;

  if D = 0 then

  begin

  writeln('D = 0 => уравнение имеет два одинаковых действительных корня:');

  writeln('x1 = x2 = ', -b / (2 * a) : 0 : 5); {Если дискриминант равен 0, печатаем два одинаковых корня с округлением до 5 знаков после запятой}

  end;

  if D < 0 then writeln('D < 0 => действительных корней уравнение не имеет'); 

end.