Some program of fortran language

to find even odd no in give set

write(*,*)’ enter lower and upper limit’
read(*,*)l,m
if (mod(l,2). NE.0)then
n=l+1
else
n=l
endif
write(*,*)’ list of even no’
do 10i=n,m,2
write(*,*)i
10 continue

  write(*,*)" list of odd no"

if (mod(l,2). EQ.0 )l=l+1
do 1i=l,m,2
write(*,*)i

1 continue
stop
end

in run time

To find roots of quadratic equation

write(*,*)”enter the value of a,b,c”
read(*,*)a,b,c
discriminant=(bb)-4ac if(discriminant>0) then

root1= (-b + sqrt(discriminant))/2a
root2= (-b – sqrt(discriminant))/2*a

write(*,*)”roots are different and real”,root1,root2

else if (discriminant==0) then

root3=(-b)/2*a
write(*,*)"roots are real and equal=",root3
else 
write(*,*)" roots are imaginary"
end if
end

in run time