read(*,*)dia=1500-2nic=5000/nd=ib**2-4*ia*icn=9283do9283 ib=1,n,19283continuej=050j=j+1(if(d,ge,jthenjsum=jsum+1go to 50write(*,*)bend ifendاشکال این برنامه به زبان فرترن در کجاست؟
read(*,*)dia=1500-2nic=5000/nd=ib**2-4*ia*icn=9283do9283 ib=1,n,19283continuej=050j=j+1(if(d,ge,jthenjsum=jsum+1go to 50write(*,*)bend ifendاشکال این برنامه به زبان فرترن در کجاست؟