[mohanna]

ممكن كتابة الحل لكن مو بالبرنامج انا اعرف اشوي
Dim A, B AS sigle
iF A > 1000 Then B=0.05*A
الباقي ما اعرفه
ممكن احد يكمل