[mmokh_23]

السؤال الثانى
تتبع الاوامر الاتية

Dim A , B , N as Integer

A = 5

For n = 1 to 8 Step2

B = A + N

Next

If N > A

A = A + 1

End If