program fly

      write(*,*)'Please give me inital x'
      read(*,*)xini
      write(*,*)'and initial y'
      read(*,*)yini
      write(*,*)'initial Vx?'
      read(*,*)vx
      write(*,*)'initial Vy?'
      read(*,*)vy

      dt=0.000001

      x=xini
      y=yini
      
      do while(y>0)
        ax=0
        ay=-9.8
        vx=vx+ax*dt
        vy=vy+ay*dt
        x=x+vx*dt
        y=y+vy*dt

      end do
      write(*,*)'Distance=',x,'Hight=',y

      end