Составить программу для нахождения корней квадратного уравнения…

Uses crt; var d,a,x,b,c,x1,x2: real; beginwriteln (' введите a,b,c'); readln (a,b,c); d: =sqr (b) -4*a*c; if d>0 thenbeginx1: =(-b+sqr (d) / (2*a); x2: =(-b-sqr (d) / (2*a); writeln ('x1=',x1:2:2); writeln ('x2',x2:2: 2); endelseif d=0 then beginx: =(-b) / (2*a); writeln ('x=',x: 2:2); endelsewriteln ('нет корней'); end.