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

Var a,b,c,d,x1,x2:real;
begin
writeln('Решение квадратных уравнений'); 
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.