program fly
      write(*,*)'Vx?'
      read(*,*)vx
      write(*,*)'Vy?'
      read(*,*)vy
      x=0
      y=1
      dt=0.00001
      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(*,*)'Distace=',x,'Hight=',y
      end