Составить программу с ветвящейся структурой, используя условный оператор if для квадратного уравнения вида ax2+bx+c=0

program zz1;var a, b, c, d:real; // задаем переменные не целого типаbeginwrite(\'введите первый коэффициент \');read(a); write(\'введите второй коэффициент \');read(b);write(\'введите третий коэффициент \');read(c);d:=b*b - 4 * a * c; // рассчитываем дискриминантif d < 0 then write(\' корней нет \');if d = 0 then write(\' корень квадратного уравнения = \', -b/2 * a);if d > 0 then Write(\' первый корень = \', -b + sqrt(d)/2 * a, \' второй корень = \',-b - sqrt(d)/2 * a ); // выводим ответ END.