التعامل مع if الحسابية في الفورتران