Fórmula Resolvente Para equações do 2° grau

Ver código Ver imagens

Código

Program formulaRes ;
var a,b,c: real;
delta: real;
res_pos: real;
res_neg: real;
tecla: char;
Begin
	Repeat  
	clrscr;
	writeln('------------------------------');
	writeln('---Equações de Segundo grau---');
	writeln('------------------------------');	
	writeln('');
	writeln('Escreve os valores a, b e c:');
	write('A: '); readln(a);
	write('B: '); readln(b);
	write('C: '); readln(c);
	delta:=(b*b)-4*a*c;
	if delta > 0 then
		Begin
		///dois resultados
		res_pos:=((-b)+sqrt(delta)) / (2*a);
		res_neg:=((-b)-sqrt(delta)) / (2*a);
		writeln('Resultado: ',res_pos:7:2, ' ou ', res_neg:7:2); 
		End
	else if delta = 0 then
		Begin
		res_pos:=((-b)+sqrt(delta)) / (2*a);
		writeln('Resultado: ',res_pos:7:2);
		End 
	else
		writeln('Resultado: Impossível');
		
	writeln('');
	write('Quer Sair? (S/N)'); readln(tecla);
	Until tecla = 'S'					
End.

Imagens