ListBox.DeleteItem("ListBox1",LB_ALLITEMS);
ListBox.DeleteItem("ListBox2",LB_ALLITEMS);
x =Input.GetText("Input1");
if  Math.Mod(x, 4)==0 then

for i = 1 , x ,2 do
result = ListBox.AddItem("ListBox1", i, "");
end
----
for h = x , 1 ,-2 do
result = ListBox.AddItem("ListBox2", h, "");
end
-----------
p ="";
g=1
f = ListBox.GetCount("ListBox1");
for g =1,x/4 do 
m = ListBox.GetItemText("ListBox1", g);
c=ListBox.GetItemText("ListBox2", g);
p=p..m..","..c ..","
end

 input_string = p
length = String.Length(input_string);
my_table = {}
for i = 0 , length do
result = String.Mid(input_string, i, 1);
Table.Insert(my_table, i, result);
end
last_letter = my_table[length]
Table.Remove(my_table, length);
for i,v in pairs (my_table) do
finish = Input.GetText("Input2");
Input.SetText("Input2", finish..v);
end
p2 ="";
g2=1
f = ListBox.GetCount("ListBox1");
for g2=f/2+1,x/2 do 
m2 = ListBox.GetItemText("ListBox1", g2);
c2=ListBox.GetItemText("ListBox2", g2);
p2=p2..m2..","..c2 ..","
end
input_string = p2
length = String.Length(input_string);
my_table = {}
for i = 0 , length do
result = String.Mid(input_string, i, 1);
Table.Insert(my_table, i, result);
end
last_letter = my_table[length]
Table.Remove(my_table, length);
for i,v in pairs (my_table) do
finish = Input.GetText("Input3");
Input.SetText("Input3", finish..v);
end
else
result = Dialog.Message("Notice", "العدد يكون من قواسم 4", MB_OK, MB_ICONINFORMATION, MB_DEFBUTTON1);
end