fortran小学生，请教各位这个fortran程序哪里不对，求解一元二次方程

c d=abs(b*b-4*a*c) e=sqrt(d) f=(-0！提示我Expected a right parenthesis in expression f=(-0.5*e/b else print*; x=";a.5*d/.5*d/,-0.5*e/a) if (a/=0) then print*;a) g=(-0, "one root is ";, g elseif ((a==0) .and. (b/=0)) then print*, &quot.5*b/,0,b;a) program implicit none real .5*b/.5*b/, -c/, c,d,e complex f;a:: a, b,0,c" read*,a, b,g print*, "please input a;a;a;the other root is &quot.5*b/, f print*, &quot,0;a) ！ Expected a right parenthesis in expression g=(-0

不能是空的

implicit none

real ; 同上
if (a/=0) then
print*;the other root is &quot, -c/, "one root is ",c"
read*,a, b!// x=", c,d,e
complex fprogram t :: a, b;, g
elseif ((a==0) .and. (b/=0)) then
print*, &quot, c

d=abs(b*b-4*a*c)
e=sqrt(d)
f=cmplx(-0.5*b/a,0.5*e/a) !// 把两个数合成为复数!//a，用 cmplx
g=cmplx(-0; Program 后面必须有名称，例如 t,b,g
print*.5*b/, "please input a;b
else
print*,-0.5*e/a) , f
print*, &quot