Program eq2grau ;
var a,b,c:real;
	delta:real;
	x1,x2:real;
 Begin
   writeln('Escreva a, b,c');
   readln(a);
   readln(b);
   readln(c);
   delta:=b*b-4*a*c;
   if delta>0 then
	begin
		writeln('Tem 2 soluções');
		x1:=(-b+sqrt(delta))/2;
		x2:=(-b-sqrt(delta))/2;
		writeln('as soluções são:',x1:6:2,x2:6:2);
	end
   else
   if delta=0 then
   	begin
   		writeln('tem 1 solução');
   		x1:=-b/2*a;
   		writeln('X1=',x1:6:2);
   	end
   else
   writeln('não tem soluções reais');
 End.
