1) Складiть програму, що знаходить значення Х для формулx=(-b+√ (b^2-ac) /2ac*(√ (a/c)

var x,a,b,c: real; BEGIN writeln ("a,b,c=? "); read (a,b,c); x: =sqrt (a/c)*(-b+sqrt (b*b-a*c) / (2*a*c); x: =(-b+sqrt (b*b-a*c) / (2*a*c)*sqrt (a/c); {точно не уверенна какая формула написана в задании потому правильную выбирете сами} writeln ("x=",x); END.