یک برنامه فرترن نوشتم یک خطا داره کی میتونه کمکم کنه