Написать программу на языке Pascal решения квадратного ...

Ira

program uravnenie; var a, b, c: integer; D, x1, x2: Real;begin writeln('Р Е Ш Е Н И Е К В А Д Р А Т Н О Г О У Р А В Н Е Н И Я');writeln('ax^2 + bx + c = 0');writeln('Введите коэффициент a');readln(a); if (a 0) then  beginwriteln('Введите коэффициент b');readln(b);writeln('Введите коэффициент c');readln(c); D := sqr(b) - 4 * a * c; if (D > 0) then begin x1 := (-b - sqrt(D)) / (2 * a); x2 := (-b + sqrt(D)) / (2 * a); writeln('x1 = ', x1 : 5 : 4); writeln('x2 = ', x2 : 5 : 4); end else if (D = 0) then begin x1 := -b / (2 * a); writeln('x = ', x1 : 5 : 4); end else writeln('Данное уравнение не имеет корней') end else writeln('Данное уравнение не является квадратным')end.