Составить программу для решения квадратного уравнения a*x*x+b*x+c=0

var  a, b, c, D: integer;  x, x2: real;begin  write('Введите a: ');  readln(a);  write('Введите b: ');  readln(b);  write('Введите c: ');  readln(c);  D := sqr(b) - 4 * a * c;  if D > 0 then begin    x := (-b - sqrt(D)) / 2 * a;    x2 := (-b + sqrt(D)) / 2 * a;    writeln('x1 = ', x, newline, 'x2 = ', x2);  end;  if D < 0 then writeln('Корней нет.');  if D = 0 then begin    x := (-b) / 2 * a;    writeln('x = ', x);  end;end.