2.Ввести три числа (коэффициенты квадратного уравнения a,b и с) и отыскать

Program unknown;

var a,b,c,D,x1,x2:real;

Begin

Writeln('Введи a,b и c:');

Readln(a,b,c);

D:=(b*b)-(4*a*c);

x1:=(-b+sqrt(D))/(2*a);

x2:=(-b-sqrt(D))/(2*a);

If Dgt;0 then writeln('D','=',D, '; x1','=',x1,'; x2','=',x2);

If Dlt;0 then writeln('Dlt;0,нет корней.');

If D=0 then writeln('D','=',0, ', 2 схожих корня,x1=x2','=',x1);

writeln('Ответ:','(',x1,';',x2,')');

End.