Задан вид квадратного уравнения ах квадрат +bx+c=0, коэффициенты a,b,c. Найти корни уравнения x1,x2.
1. Разработать схему алгоритма программы
2. Составить программу на языке Паскаль по разработанному алгоритму

var a,b,c,d,x1,x2:real;beginwriteln('Решение квадратных уравнений'); writeln('');writeln('Введите коэффициенты a,b,c:'); readln(a,b,c);d:=sqr(b)-4*a*c; if d<0 then  writeln('Корней нет'); if d=0 then begin  x1:=-b/(2*a);   writeln('Один корень:');   writeln(x1:4:2);    end; if d>0 then begin   x1:=-b+sqrt(d)/(2*a);    x2:=-b-sqrt(d)/(2*a);   writeln('Корни уравнения:');   writeln(x1:4:2);   writeln(x2:4:2);   end;end.