program ecuatie_de_gradul_al_doilea;
var a,b,c,d,x1,x2:real;
begin
writeln;
writeln('Ecuatia de gradul al doilea: ax^2+bx+c=0');
writeln;
Write('Introduceti valoarea lui a: ');
Readln(a);
Write('Introduceti valoarea lui b: ');
Readln(b);
Write('Introduceti valoarea lui c: ');
Readln(c);
if (a=0) then
writeln('Ecuatia este de gradul intai!')
else
begin
d:=b*b-4*a*c;
if (d<0) then
writeln('Ecuatia nu admite solutii reale!')
else
begin
x1:=(-b-sqrt(d))/(2*a);
x2:=(-b+sqrt(d))/(2*a);
writeln('Valoare lui x1 este: ',x1);
writeln('Valoare lui x2 este: ',x2);
end;
end;
readln;
end.
