program fly

      write(*,*)'vx?'
      read(*,*)vx
      write(*,*)'vy?'
      read(*,*)vy

      dt=0.0001

      y=1.0
      x=0.0
      
      ax=0
      ay=-9.8

      do while (y>0)
        vx=vx+ax*dt
        vy=vy+ay*dt
        x=x+vx*dt
        y=y+vy*dt
      end do

      write(*,*) 'distance=',x,'  hight=',y

      end