Напишите программу, решающую любое квадратное уравнение. Паскал

program kv_ur; var a, b, c, d, x1,x2, x:real; begin read(a, b, c); d:= sqr(b) - 4*a*c; if d<0 then write('нет решений'); if d = 0 then               begin                  x:= -b/(2*a); write('один корень: ',x:5:2)                end; if d>0 then              begin               x1:=(-b+sqrt(d))/(2*a);               x2:=(-b-sqrt(d))/(2*a);               write('два корня: ', 'x1=',x1:5:2,'x2=',x2:5:2)             end end.