По заданным коэффициентам найти корни уравнения если d> 0)) программа паскаль) квадратное

Var a,b,c,d,x1,x2:real;
begin;
readln(a);
readln(b);
readln(c);
d:=sqr(b)-4*a*c;
if d>0 then
begin;
   x1:=(-b+sqrt(d))/(2*a);
   x2:=(-b-sqrt(d))/(2*a);
   writeln('x1=',x1);
   writeln('x2=',x2);
end;
if d=0 then
begin;
  x1:=-b/(2*a);
  writeln('x1=',x1);
end;
if d<0 then writeln('Нет действительных решений');
end.