Написать программку в паскаль ABC для нахождения корней квадратного уравнерния y=ax^2+bx+c

program zz1;

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

begin

write(введите 1-ый коэффициент );

read(a);  

write(введите 2-ой коэффициент );

read(b);

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

read(c);

d:=b*b - 4 * a * c; // рассчитываем дискриминант

if d lt; 0 then write( корней нет );

if d = 0 then write( корень квадратного уравнения = , -b/2 * a);

if d gt; 0 then Write( 1-ый корень = , -b + sqrt(d)/2 * a, 2-ой корень = ,-b - sqrt(d)/2 * a ); // выводим ответ в зависимости от 1-го из трех критерий

END.