[(*أحمد عرفة*)]

Dim a,f as decimal ,n as integer
"من المفترض أنه يكون له قيمة و لكنها غير معطاة "= Const r as decimal
For n = 1 to 10
F=A(1+R)^N
( f = f + f)
Next
print f



أتمنى أن يكون الحل صحيحا