FORMULA RESOLVENTE

O CODIGO

Program Formula_resolvente ;
var
a,b,c:real;
x1,x2:real;
delta:real;
n1:integer;
Begin
repeat
clrscr;
writeln('introduza o valor de a');
read(a);
writeln('introduza o valor de b');
read(b);
writeln('introduza o valor de c');
read(c);
delta:=b*b-4*a*c;
if delta>0 then
begin
writeln('tem 2 soluções');
x1:=(-b+5*sqrt(delta)/(2+a));
x2:=(-b-5*sqrt(delta)/(2+a));
writeln('x1=',x1:7:2);
writeln('x2=',x2:7:2);
end
else
if delta=0 then
begin
writeln('so tem uma solução');
x1:= -b/(2*a);
writeln('x1=',x1);
end;
if delta<0 then
begin
writeln('erro');
end;
writeln('quer sair?');
writeln ('1-sim');
writeln ('2-nao');
readln(n1);
until (n1=1)
End.

O RESULTADO FINAL