--
function abood ()
   a=5;
   b=6;
   return a+b
end

abood()

--
function abood ()
   a=5;
   b=6;
   return a+b
end

Dialog.Message("Notice", abood (), MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);

T1 =Input.GetText("Input1");
T2 =Input.GetText("Input2");
T3 =Input.GetText("Input3");

----------  حساب  دلتا -------
X = (T2^2)-(4*T1*T3)
Input.SetText("Input4", X);
----------------------=======----------

--------------------------------
--------------------------------
---------  و س2حساب س1 -------------
W= Math.Sqrt(X);
R4=(T2*-1)+W
R=(T2*-1)-W
R2 =2*T1
R3 = R/R2
R5 = R4/R2
Input.SetText("Input5", R3);
--------------  حساب س2 ----------------
Input.SetText("Input6", R5);
--------
if X < 0 then
Label.SetText("Label6", "!!  المعادلة ليست لها حلول ");
Input.SetText("Input5", "");
Input.SetText("Input6", "");
elseif X == 0 then
Label.SetText("Label6", "!!  المعادلة  لها حل مضاعف ");
elseif X > 0 then
Label.SetText("Label6", "!!  المعادلة  لها حلان ");

end

function dala_F (X,T1,T2,T3)
X = (T2^2)-(4*T1*T3) return X 
end
function dala_R (X,T1,T2,T3)
X = (T2^2)-(4*T1*T3)
if X > 0 then
X = (T2^2)-(4*T1*T3)
W= Math.Sqrt(X);
R4=(T2*-1)+W
R=(T2*-1)-W
R2 =2*T1
R3 = R/R2
R5 = R4/R2
R3 = R/R2
 return R3
 elseif X < 0 then return "Il n'y a pas de solutions "
end
end
function dala_y (X,T1,T2,T3)
X = (T2^2)-(4*T1*T3)
if X > 0 then
X = (T2^2)-(4*T1*T3)
W= Math.Sqrt(X);
R4=(T2*-1)+W
R=(T2*-1)-W
R2 =2*T1
R3 = R/R2
R5 = R4/R2
R3 = R/R2
 return R5
  elseif X < 0 then return "Il n'y a pas de solutions "
end
end