Составить программу квадратного уровнения

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

begin writeln ( \'Введите коэффициенты квадратного уравнения.\' ); write ( \'Введите a = \' ); readln ( a ); write ( \'Введите b = \' ); readln ( b ); write ( \'Введите c = \' ); readln ( c ); D := sqr ( b ) - 4 * a * c; if D < 0 then writeln ( \'Нет действительных корней.\' ) else if D = 0 then begin x1 := -c / b; writeln ( \'x = \', x1 ); end else begin x1 := ( -b + sqrt ( D ) ) / 2 * a; x2 := (-b - sqrt ( D ) ) / 2 * a; writeln ( \'x1 = \', x1 ); writeln ( \'x2 = \', x2 ); end;end.