1)даны 3 числа a,b,c, являющиеся коэффициентами квадратного уравнения. Составить алгоритм и программу для нахождения корней этого квадратного уравнения.

var a,b,c:real;

begin

writeln('Введите A,B,C');

readln(a,b,c);

if((b*b-4*a*c)<0) then begin writeln('Уравнение не имеет корней'); halt(); end;

writeln('x1 =',' ',(((b*(-1)-sqrt(b*b-4*a*c))/2*a)));

writeln('x2 =',' ',(((b*(-1)+sqrt(b*b-4*a*c))/2*a)));

end.