Dim a. b .c as byte
A=0
B=0
C=1

THEN IF A>0
B= A+B
ELSE
A= A+B
B=B/A
C=C*B
END IF


الاجابه ايه