Напишите программу для нахождения корней квадратного уравнения. Должно выходить три случая: 1. Есть один корень 2. Нету корней 3. Два корня

program zz1;

var a, b, c, d:real; / / задаем переменные не целого типа

begin

write ('введите первый коэффициент ');

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.