Open save For Output As 1
Print # 1, "корінь рівняння"; Format (X1, "0.000")
Close # 1IfSubSub Text3_Change () Sub
25.