un programme en pascal

ça c est un program qui permet de résoudre une équation du second degré
ax2+bx+c=0

program equation;
uses wincrt;
var x1,x2,a,b,c,delta:real;
begin
writeln('résolution d''une equation du second degré ');
writeln('saisir les coefficients d''une equation de second degré');
readln(a,b,c);
if a=0 then
if b=0 then
if c=0 then
writeln('il existe une infinité de solutions')
else writeln('il n''y a pas de solutions')
else
begin
x1:=-c/b;
writeln('il existe une solution:',x1);
end
else
delta:= b*b-4*a*c;
if delta>0 then
begin
x1:=(-b-sqrt(delta))/(2*a);
x2:=(-b+sqrt(delta))/(2*a);
writeln('l''equation admet 2 racines:x1=',x1,'et x2=',x2);
end
else
begin
if delta=0 then
begin
x1:=-b/(2*a);
writeln('l''equation admet une racine double égale à',x1);
end
else writeln('cette équation n''admet pas de solution');
end;
end.