program quadsolve;

uses crt;

var a,b,c,desc: Real;
	x1,x2: Real;
	letra: char;
	_exit: boolean;
begin
	repeat;
	clrscr;
	writeln('<-------------------------------->');
	writeln('<SOLUCIONADOR DE EQS. QUADRATICAS>');
	writeln('<-------------------------------->');
	writeln(' Executar(E)');
	writeln(' Sair(S)');
	readln(letra);
	clrscr;
	if letra = 'E' then
		begin
		write('A(x^2)?'); readln (a);
		write('B(x)?'); readln (b);
		write('C?'); readln (c);
		desc := ((b*b)-(4*a*c));
		if desc < 0 then 
			writeln ('Nao tem solucoes reais')
			else
				begin
				x1 := (-b+sqrt(desc))/(2*a);
				x2 := (-b-sqrt(desc))/(2*a);
				if desc <> 0 then
					begin
					writeln('2 solucoes');
					writeln('solucao 1 ', x1:6:2);
					writeln('solucao 2 ', x2:6:2);
					end
				else
					begin
					writeln('solucao dupla');
					writeln('raiz ', x1:6:2);
				end
			end;
		readln;
		end
	else if letra='S' then
	_exit := true;
	until _exit

end.