soluzione e discussione per equazione secondo grado

program equa2g;
uses crt;
var a,b,c,d,x1,x2,r1,d1:real;
h:integer;

procedure scelta;
begin
clrscr;
writeln('scrivi i coefficienti della equazione di 2øgrado');
writeln('ax^2 + bx + c = 0');
write('a=');readln(a);
write('b=');readln(b);
write('c=');readln(c);
d:=b*b-4*a*c;
if d>0 then
begin
writeln('due soluzioni reali distinte');
writeln('discriminante=',d:8:2);
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln('x1=',x1:8:2);
writeln('x2=',x2:8:2);

writeln('altra equazione 1 ,fine 2 ');readln(h);
if h=1 then scelta;
end;
 if d=0 then
begin
writeln('due soluzioni reali coincidenti');
writeln('discriminante=',d:8:2);
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
writeln('x1=',x1:8:2);
writeln('x2=',x2:8:2);
writeln('altra equazione 1 ,fine 2 ');readln(h);
if h=1 then scelta;
end;

 if d<0 then
begin
writeln('soluzioni nel campo complesso');
d:=-(b*b-4*a*c);
writeln('discriminante=',d:8:2);
r1:=(-b/(2*a));
d1:=(sqrt(d)/(2*a)) ;
writeln('x1=',r1:8:2,'+',d1:8:2,' i');
writeln('x2=',r1:8:2,'-',d1:8:2,' i');
writeln('altra equazione 1 ,fine 2 ');readln(h);
if h=1 then scelta;
 end;
end;

begin
clrscr;scelta;clrscr;end.

scrivi i coefficienti della equazione di 2°grado
ax^2 + bx + c = 0
a=5
b=8
c=3
due soluzioni reali distinte
discriminante=    4.00
x1=   -0.60
x2=   -1.00
altra equazione 1 ,fine 2

scrivi i coefficienti della equazione di 2°grado
ax^2 + bx + c = 0
a=2
b=-7
c=3
due soluzioni reali distinte
discriminante=   25.00
x1=    3.00
x2=    0.50
altra equazione 1 ,fine 2


scrivi i coefficienti della equazione di 2°grado
ax^2 + bx + c = 0
a=3
b=-5
c=4
soluzioni nel campo complesso
discriminante=   23.00
x1=    0.83+    0.80 i
x2=    0.83-    0.80 i
altra equazione 1 ,fine 2

scrivi i coefficienti della equazione di 2°grado
ax^2 + bx + c = 0
a=2
b=4
c=2
due soluzioni reali coincidenti
discriminante=    0.00
x1=   -1.00
x2=   -1.00
altra equazione 1 ,fine 2

inizio