Program Primer2;
War a,b,c,D,x1,x2 : real;
begin
writeln('Введите коэффициенты уравнения A, B, C: ');
readln(a,b,c);
D = b*b - 4*a*c;
if D>0 then begin
x1:=(-b+sqrt(D))/(2*a);
x2:=(-b-sqrt(D))/(2*a);
end;
writeln('x1 = '; x1; 'x2 = '; x2);
else witeln('Корней нет');
end.