по заданным коэффициентам найти корни уравнения если 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 thenbegin;   x1:=(-b+sqrt(d))/(2*a);   x2:=(-b-sqrt(d))/(2*a);   writeln('x1=',x1);   writeln('x2=',x2);end;if d=0 thenbegin;  x1:=-b/(2*a);  writeln('x1=',x1);end;if d<0 then writeln('Нет действительных решений');end.