Составить программу с ветвящейся структурой, используя условный оператор if для квадратного уравнения вида ax2+bx+c=0

var a,b,c,x,x1,x2:real;beginwriteln('....');readln(a,b,c);d:=b*b-4*a*c;if d<0 then writeln('корней нет');if d=0 then x:=-b/2/a;if d>0 then;begin;x1=:(-b+sqrt(d))/2/a;x2:=(-2-sqrt(d))/2/a;writeln('x1=',x1:10:2);writeln('x2=',x2:10:2);end;end