Нужна помощь, qbasic