Question

I need help (about fortran languange).., please check my script..,

Answer 1

program value
implicit none
real::a,b,d,x
read*,a
read*,b
read*,d
if(a .ne. 0.0)then
if (d<0.0)then
write(*,*)'Invalid input data d negative'
else
x=b*sqrt(d)/a
end if
else
write(*,*)'Invalid input a zero'
end if
print*,x
end program value

Answer 2

Have you tried compiling?