Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  22
Language: FORTRAN
Code:
program main
  write(*,*)" Enter first site x="
  read(*,*) x
  if(x.LE.0) then
    write(*,*) "no"
    else
  write(*,*)" Enter second site y="
  read(*,*) y
  if(y.LE.0) then
    write(*,*) "no"
    else
  write(*,*)" Enter third site z="
  read(*,*) z
  if(z.LE.0) then
    write(*,*) "no"
    else
  u=x+y
  t=y+z
  r=z+x
  endif
  endif
  endif
  if(u.GT.z)  then
    if(t.GT.x) then
        if(r.GT.y) then
            write(*,*) "Sushestvyet"
        else
             write(*,*) "promah"
             endif
            else
                 write(*,*) "promah"
                 endif
                else
    write(*,*) "promah"
    endif
end
     
          
Comments: